Дан одномерный массив целых чисел состоящий из 22 двух элементов посчитать количество отрицательных элементов массива, а так же количество элементов которые делятся на 9. Помогите отредактировать программу.
Progam c11;
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;
for i:=1 to 22 do if a[i]<0 then k:=k+1;write('k=',k)end; s:=0;
for i:=1 to 22 do if a[i] mod 9=0 then s:=s+1; write('s=',s)end.
ПОЖАЛЙСТА
Что то у тебя много циклов немного упростил for i:=1 to 22 do readln (a[i]); в этой строчке я сделал чтобы эл-ты вводились рандомно и чтобы результат можно было проверить а то согласись вводить 22 эл-та-ужас.
Да.вот сама запуталась с этими циклами. Спасибо, огромное.
хммм..вот еще вопросик возник inc(k) почему вы так написали а не к:=k+1
всё,поняла,спасибо.