Предмет: Информатика,
автор: iziinst
1 Вариант, Если можно,то программу не очень большой, и без лишнего
Зарание Спасибо
Приложения:


Ответы
Автор ответа:
0
Ответ:
Объяснение:
program summas;
var
a :array[1..20] of integer;
i,sum:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(41)-20; //a[i]:= random(-20,20); для PascalABC
write(a[i],' ');
if a[i]>0 then sum:=sum+a[i];
end;
writeln('');
writeln('Сумма положительных чисел массива=',sum);
readln;
end.
Приложения:



Похожие вопросы
Предмет: Математика,
автор: prytkaavlada
Предмет: Химия,
автор: Аноним
Предмет: Биология,
автор: mari8987
Предмет: Математика,
автор: Nazar1206