Вычислить сумму положительных чисел массива. Написать программу в Pascal.

Ответы:

Кузя Савыцькый

18-04-2012 11:38

program summ_pol_chicel;var a: array [-100..100] of integer;i, b: integer;beginFor i:=1 to 10 do Readln (a[i]);b := 0;For i:=1 to 10 dobegin if a[i] > 0 then b := b+ a[i];end;writeln(b);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ОЛЕСЯ НИКОЛАЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вычислить сумму положительных чисел массива. Написать программу в Pascal.» от пользователя ОЛЕСЯ НИКОЛАЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!