Дан одномерный массив целых чисел состоящий из 22 2-ух частей посчитать

Дан одномерный массив целых чисел состоящий из 22 2-ух частей посчитать количество отрицательных частей массива, а так же количество элементов которые делятся на 9. Помогите отредактировать программку.

Diana 2019-09-12 05:01:42

Progam c11;

Олег Посконов 2019-09-12 05:04:46

var k,i,s:integer; a: array [1..22] of integer;Begin for i:=1 to 22 do readln (a[i]); for i:=1 to 22 do begin k:=0;

Kirill Solopejkin 2019-09-12 05:02:36

for i:=1 to 22 do if a[i]<0 then k:=k+1;write('k=',k)end; s:=0;

Бенетис Алексей 2019-09-12 05:09:17

for i:=1 to 22 do if a[i] mod 9=0 then s:=s+1; write('s=',s)end.

Пашка Светаков 2019-09-12 05:12:47

ПОЖАЛЙСТА