Сформировать из 10 случайных чисел из отрезка [0;25] и найти сумму положительных элементов массива.
Answers & Comments
jerrystreet
Program kol_vo_elementov; var a:array[1..10] of integer; i, s:integer; begin for i:=1 to 10 do begin a[i]:=random(25); write(a[i],' '); if (a[i]>0) then s:=s+a[i]; end; writeln('s=',s); end.
Answers & Comments
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.