Массивы! Опции

[Vino-grad]

надо написать программу в которую надо ввести пять элементов массива. вычислить сумму. ничего не понимаю...

и еще одна программка похожая:

надо написать программу в которую надо ввести пять элементов массива. вычислить среднее.

[volvo]

Vino-grad, Тебе для начала сюда: Массивы. Матрицы. Типичные задачи. и вот сюда: решения: МАТРИЦЫ, МАССИВЫ. задачи А уж потом, если что останется непонятным, спрашивай...

[Vino-grad]

Vino-grad, Тебе для начала сюда: Массивы. Матрицы. Типичные задачи. и вот сюда: решения: МАТРИЦЫ, МАССИВЫ. задачи А уж потом, если что останется непонятным, спрашивай...

program p1;
var mas:array[1..5] of integer;
x:1..5;
sum:integer;
begin
for x:=1 to 5 do
begin
write('Vvedite ',x,' element:');
readln(mas[x]);
sum:=sum+mas[x];
end;
Writeln('Summa elementov: ',sum);
end.

program p2;
var mas:array[1..5] of integer;
x:1..5;
sum:integer;
begin
for x:=1 to 5 do
begin
write('Vvedite ',x,' element:');
readln(mas[x]);
sum:=sum+mas[x];
end;
Writeln('Srednee: ',sum div 5);
end.

тааак?

М

Теги!! Меню CODE Lapp