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

program z1;

var a:array[1..2,1..4] of integer;

i,j,mi,mj:integer;

begin

mi:=1;

mj:=1;

writeln('Массив: ');

for i:= 1 to 2 do

begin  

for j:= 1 to 4 do

begin

a[i,j]:=random (10);

write(a[i,j]:3);

if a[i,j]<a[mi,mj] then

begin

mi:=i;

mj:=j

end

end;

writeln;

end;

writeln;

writeln('Наименьший элемент массива a[',mi,',',mj,'] = ',a[mi,mj])

end.

Объяснение:

Сразу работаем с индексами массива. Сначала предполагаем, что первый элемент массива и есть наименьший, сравниваем с ним остальные, если они меньше, то меняем индексы наименьшего элемента.

Если наименьших индексов больше одного, то на экран будет выведено расположение первого.