Массив из 20 целых чисел. Заполнить случайными числами от -50 до 50. Найти сумму положительных чисел.
Answers & Comments
STAJLb
Var i,sum:integer; a:array [1..20] of integer; begin for i:=1 to 20 do begin a[i]:=Random(-50,50); end; writeln('Полученный массив: '); for i:=1 to 20 do begin write(' '); write(a[i]); end; writeln(); sum:=0; for i:=1 to 20 do begin if (a[i]>0) then sum:=sum+a[i]; end; writeln('Сумма = ',sum); end.
Impersona1
program symma; uses crt; var s,i:integer; mas:array [1..20] of integer; begin for i:=1 to 20 do begin mas[i]:=random(100)-50; if mas[i]>0 then s:=mas[i]+s; end;
writeln('Сумма положительных чисел массива=',s); end.
Answers & Comments
i,sum:integer;
a:array [1..20] of integer;
begin
for i:=1 to 20 do begin
a[i]:=Random(-50,50);
end;
writeln('Полученный массив: ');
for i:=1 to 20 do begin
write(' ');
write(a[i]);
end;
writeln();
sum:=0;
for i:=1 to 20 do begin
if (a[i]>0) then sum:=sum+a[i];
end;
writeln('Сумма = ',sum);
end.
uses crt;
var s,i:integer; mas:array [1..20] of integer;
begin
for i:=1 to 20 do
begin
mas[i]:=random(100)-50;
if mas[i]>0 then
s:=mas[i]+s;
end;
writeln('Сумма положительных чисел массива=',s);
end.