Задачи с массивами

[Genka ya]

Помогите решить задачи!Зарание благодарю!
1) Дан массив чисел А1,А2,...,Аn найти количество нулевых элементов
2) Дан массив целых чисел А1,А2,...,Аn Указать такие пары чисел Ai и Aj для которых выполняется условие Ai+Aj=m

[Alex11223]

Проблема-то в чем? Где наработки? Что не получается?
В обоих надо с помощью цикла for проходить массив и искать нужные (if) элементы.

[Sparkman]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,nol,m:integer;
begin
     clrscr;
     randomize;
     for i:=1 to n do
     begin
          a[i]:=random(9);
          write(a[i]:3);
          if a[i]=0 then inc(nol);
     end;
     writeln('Number of zero elements: ',nol);
     writeln;
     write('Enter m:');
     readln(m);
     writeln;
     for i:=1 to n do
     for j:=i+1 to n do
     if i<>j then
     if a[i]+a[j]=m then writeln(a[i],'+',a[j],'=',m);
     readln;
end.

[Genka ya]

Огромное спасибо!
Если не трудно можете ещё первую рещить

[Alex11223]

А сам? Также как и 2, но для поиска элемента нужен только 1 цикл for и когда нашел число равное нулю — +1 к какой-нибудь переменной-счетчику.

[Genka ya]

Сам нифига не умею решать

[Sparkman]

Сообщение от Genka ya

Сам нифига не умею решать

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