Question

Дан массив а[1..5] сколько элементов, равных 0, содержит массив? вывести номера этих элементов, напишите

Answer 1

Program z1;  Var a: array [1..100] of integer;      b: array [1..100] of integer; i,j,n,s,m:integer;Begin  write('Введите рамер массива - ');  readln(n);  for i:=1 to n do  begin      a[i]:=random(2)-0;      write (a[i],' ');  end;    s:=0;  j:=1;  writeln;  for i:=1 to n do      if (a[i] = 0)         then begin               s:=s+1;              b[j]:=i;              j:=j+1;             end;  m:=j-1;  writeln('Кол-во элементов равнных 0 - ',s);  write('Номера этих элементов - ');  for j:=1 to m do  begin      write (b[j],' ');  end;End.