§ 19. Заполнение массива случайными числами и его обработка

Упражнение 33. Зарезервировать массив на 5 чисел. Ввести значения элементов массива с клавиатуры, вывести их на экран по очереди и найти их сумму.

Program mas1;

Const n=5;

Var a:array[1..n] of integer;

S,i:integer;

Begin

Writeln (‘Введите 5 элементов’);

{ввод 5 эл-тов с клавиатуры}

for i:=1 to n do

begin

write('a[', i, ']=');

read ( a[i] );

end;

{вывод эл-тов и их суммирование}

S:=0;

For i:=1 to n do

Begin

write(a[i]:4);

S:=s+a[i];

End;

Writeln (‘Сумма=’ , s);

End.

Program massiv;

Const N=10;

Var A : array [1..N] of integer;

S: real; {среднее арифметическое элементов}

I : integer; {счетчик индексов элементов}

K : integer; {количество эл-тов с нечетн. индек}

Begin

{цикл заполнения и вывода массива}

For i:=1 to N do

Begin

A[i]:=random(100)+1;

Write (A[i]: 4);

End;

S:=0; K:=0;

{цикл подсчета суммы элементов и кол-ва элементов с нечетными индексами}

For i:= to N do

Begin

If I mod 2=0 then K:=K+1;

S:=S+A[i];

End;

{вычислим среднее арифметическое N элементов}

S:=S/N;

Writeln(‘Среднее арифм= ’, S);

Writeln (‘Кол-во Эл-тов с неч. Инд=’, K);

End.