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

Question

Помоги пожалуйста написать программу на языке Паскаля

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

СПАСИБО

Answer 1

Var i,k1,k2:integer;
begin;
var ar:=ArrRandomInteger(23,-50,50);
for i:=1 to 22 do
begin;
write(ar[i]:4);
if ar[i]<0 then inc(k1);<br>if ar[i] mod 9=0 then inc(k2);
 end;
writeln;
writeln('Отрицательные:',k1);
write('Делятся на 9:',k2);
end.

//Неинтересный вариант
var i,k1,k2:integer;
ar:array[1..22] of integer;
begin;
for i:=1 to 22 do
begin;
ar[i]:=random(100)-50;
write(ar[i]:4);
if ar[i]<0 then inc(k1);<br>if ar[i] mod 9=0 then inc(k2);
end;
writeln;
writeln('Отрицательные:',k1);
write('Делятся на 9:',k2);
end.

Comments

Готов принять любые шишки.

Answer 2

Var
a:array[1..100] of integer;
s,s1,i:integer;
begin
for i:=1 to 22 do
begin
a[i]:=random(10)-10;
if a[i]<0 then <br>begin
s:=s+1;
end;
if a[i] mod 9=0 then
begin
s1:=s1+1;
end;
end;
writeln(s,s1);
end.