Ввести целочисленный массив состоящий из 17 элементтв. Найти сумму и количество положительных элементов . Паскаль АБС
Ответы:
22-02-2019 21:29
Const N=17; var i,sum,col:integer; a:array[1..N] of integer; begin for i:=1 to N do readln(a[i]); for i:=1 to N do begin if (a[i]>0) then inc(col); if (a[i]>0) then sum:=sum+a[i]; end; writeln(sum,, col); end.
Также наши пользователи интересуются:
Помогите пожалуйста написать главную мысль рассказа В.Г.Короленко " Купленный мальчик" Загадку про циркуль или ручку !) Спасибо
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Ввести целочисленный массив состоящий из 17 элементтв. Найти сумму и количество положительных элементов . Паскаль АБС » от пользователя УЛЯ СОЛДАТЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!