Дан массив А(10), заполненный датчиком случайных чисел. Подсчитать и вывести на экран сумму положительных элементов массива.
Дан массив А(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.
Не нашли ответ?
Похожие вопросы