объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму всех элементов массива, которые больше 9
Answers & Comments
Segrif
Var a: array [1..5] of integer; i,s: integer; begin for i := 1 to 5 do read(a[i]); s := 0; for i := 1 to 5 do if a[i] > 9 then s := s + a[i]; write(s) end.
1 votes Thanks 1
iowisp3
Const n = 5; var a:array[1..n]of integer; i,c:integer; begin c:=0; for i:=1 to n do begin read(a[i]); if a[i]>9 then c:=c+a[i]; end; writeln(c); end.
Answers & Comments
a: array [1..5] of integer;
i,s: integer;
begin
for i := 1 to 5 do
read(a[i]);
s := 0;
for i := 1 to 5 do
if a[i] > 9 then
s := s + a[i];
write(s)
end.
var
a:array[1..n]of integer;
i,c:integer;
begin
c:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>9 then
c:=c+a[i];
end;
writeln(c);
end.