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

Question

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

Таисия Худабердина 2019-05-30 10:23:19

Язык какой?

Korchunova Stefanija 2019-05-30 10:32:06

Паскаль

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Мирослава Жигирева · Answer 1 · 2019-05-30 10:24:24+3:00

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

Albina Vaskova · Answer 2 · 2019-05-30 10:28:13+3:00

Albina Vaskova 2019-05-30 10:28:13

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.

Виталик Баенкевич 2019-05-30 10:35:47

перед заключительным end необходимо добавить readln; если вылетает в консоли

Нелли Радиевская 2019-05-30 10:43:19

Спасибо огромное

Свистовская Эльвира 2019-05-30 10:45:22

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

Камилла Башева 2019-05-30 10:54:43

Не доглядел