Предмет: Информатика,
автор: Krista1196
найдите сумму всех положительных элементов одномерного массива
Ответы
Автор ответа:
0
var
a: array[1..20] of integer;
s,i: integer;
begin
s := 0;
for i := 1 to 20 do
begin
a[i] := random(40)-20;
if a[i] >0 then
s := s+a[i];
write(a[i]:4);
end;
writeln;
writeln(s);
end.
Интересные вопросы
Предмет: Химия,
автор: anosimovamaria493
Предмет: Қазақ тiлi,
автор: serikkamila973
Предмет: Обществознание,
автор: GhostFantom
Предмет: Физика,
автор: natalya777
Предмет: Математика,
автор: климанчоз