Вмассиве 8 элементов напишите программу которая находит сумму положительнух чмсел и кол во чисел =0

110

164

Посмотреть ответы 2

Ответы на вопрос:

Снежана2018

Информатика

4,5(46 оценок)

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(8,-9,9); a.println; writeln('сумма положительных ',a.where(t-> t> 0).sum); writeln('количество нулей ',a.where(t-> t=0).count) end. пример 2 6 -6 7 0 2 3 6 сумма положительных 26 количество нулей 1

kikesee

Информатика

4,5(11 оценок)

Var k,n,i: integer; begin writeln('введите число'); readln(k); n: =0; for i: =1 to k do if (i mod 2=1)and(k mod i =0) then n: =n+1; writeln('количество нечетных делителей числа равно ', n); readln end. выбирайте лучший ; )