Регистрация
Ekateika
07.03.2020 07:30
Информатика
Есть ответ 👍

Сформировать целочисленный массив 20 элементов. 1) подсчитать количество положительных элементов. 2) подсчитать сумму нечетных элементов. на языке pascal

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

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

Ринат2006
Ринат2006
4,7(30 оценок)
Var a: array[1..20] of integer; i,p,n: integer; begin p: =0; n: =0; write ('массив: '); for i: =1 to 20 do begin a[i]: =random(101)-50; write (a[i],' '); end; for i: =1 to 20 do if a[i]> 0 then p: =p+1; for i: =1 to 20 do if a[i] mod 2 < > 0 then n: =n+a[i]; writeln; write ('кол-во положительный элементов = ',p); writeln; write ('сумма нечётных элементов = ',n); end.
Alia178
Alia178
4,4(66 оценок)

шщя

Объяснение:

океу

Популярно: Информатика