Сообщение о соотечественниках, которые вложили вклад в развитие информационных технологий россии

101

264

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

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

ира8800

Информатика

4,6(90 оценок)

На каком языке программирования? паскаль абс var i,count: integer; a: array [1..16] of integer; begin for i: =1 to 16 do begin a[i]: = random (-20,20); end; for i: =1 to 16 do begin if (a[i] = 0) then writeln ('нулевой элемент ',a [i]); if (a [i] mod 2 = 1) then writeln ('индекс нечетного элемента ',i); if (a [i] > 0) then inc (count); end; writeln ('количество положительных чисел ',count); end.