Помогите ,поооожалуйста!Срочно очееень
последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10
Ответы
Ответ дал:
0
var A:array [1..10] of integer;
I,S:integer;
begin
for i:= 1 to 10 do begin
writeln('A[',i,']=');
readln(A[i]);
end;
S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln('S=',S);
readln;
end.
I,S:integer;
begin
for i:= 1 to 10 do begin
writeln('A[',i,']=');
readln(A[i]);
end;
S:=0;
for i:= 1 to 10 do
if (A[i]>0) then s:=s+A[i];
writeln('S=',S);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад