Найти сумму положительных элементов линейного массива целых чисел. Размерность м...

July 2022 2 11 Report

Найти сумму положительных элементов линейного массива целых чисел. Размерность массива-10. Заполнения массива осуществить с клавиатуры.

Pyro00 //PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.

1 votes Thanks 1

Pyro00 перед последним end нужно добавить readln; если вылетает в консоли

kopibara220 Спасибо большое

Pyro00 Тогда вместо строчки sum:=sum+mas[i]; пишете if mas[i]>0 sum:=sum+mas[i];

Pyro00 Не доглядел

AnonimusPro

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.

1 votes Thanks 0