Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму всех элементов массива, которые больше 9
Объявить целочисленный массив из 5 элементов. заполнить его с клавиатуры. найти сумму всех элементов массива, которые больше 9
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы