Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,
чтобы:
1) массив состоял из 20 элементов символьного типа;
2) значения элементов массива должны меняться в интервале от 0 до 30;
2) в результате выполнения программы должна быть найдена сумма четных элементов в массиве.
Const n=10;
Var a:array[1..n] of real;
s,i: integer;
Begin
WriteLn('Исходный массив:');
For i:=1 to n do
begin
a[i]:=random(10);
Write('a[',i,']=',a[i],' ');
end;
s:=0;
For i:=1 to n do
s:=s+a[i];
WriteLn('Сумма всех элементов массива S=',s);
end.

ilya20063    2   24.02.2020 18:29    79