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

[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

[Айра]

Да, только желательно в начале программы задавать исходное значение суммы, т.е. ноль) ( sum:=0; )
Если что, вместо x: 1..5; можно использовать просто x: byte\integer..

*и еще удобно пользоваться тегами code=pas ))

Сообщение отредактировано: Айра - 17.12.2008 3:37

[Ozzя]

вычислить среднее

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

div дает результат целочисленного деления. А Вам нужно среднее арифметическое. Поэтому знак деления - / и тип переменной sum - real