Никитич
4 год назад
Найти сумму положительных элементов линейного массива целых чисел. Размерность массива-10. Заполнения массива осуществить с клавиатуры.
ОТВЕТЫ
Iivari Raimo
Oct 24, 2020
var mas:array[0..9] of integer; i,sum:integer;
begin
sum:=0;
for i:=0 to 9 do
begin
readln(mas[i]);
sum:= sum+mas[i];
end;
writeln(sum);
end.
begin
sum:=0;
for i:=0 to 9 do
begin
readln(mas[i]);
sum:= sum+mas[i];
end;
writeln(sum);
end.
449
Смежные вопросы: