Дан массив А(10), заполненный датчиком случайных чисел. Подсчитать и вывести на экран сумму положительных элементов массива.
uses crt;
var a:array[1..10] of real;
i:integer; s:real;
begin
clrscr;
s:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write(a[i], );
if a[i]>0 then s:=s+a[i];
end;
write(s=,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
