Регистрация
Oclahoma
Есть ответ 👍

Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,
чтобы:
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.

239
338
Посмотреть ответы 1

Ответы на вопрос:

Vlad44kostroma4
Vlad44kostroma4
4,7(97 оценок)

военные профессии для девушек:

1) картограф;

2) радист;

3) метеоролог;

4) механик --- оптик

~•~•~•zloy_tigrovskiy~•~•~•

Популярно: Другие предметы