Технический форум - Помогите решить задачу в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите решить задачу в Паскале (http://www.tehnari.ru/f43/t40018/)

Ronick

17.09.2010 19:20

Помогите решить задачу в Паскале

нужно составить программу нахождения количества нулевых(=0) элементов в массиве.Помогите плиз.

kreol

17.09.2010 21:27

Код:

const n=5;

var i: integer;

a: array [0..n] of integer;

begin

for i := 0 to n do

   readln(a[i]);



for i := 0 to n do

  begin

    if a[i]=0 then

      write('nomer elementa massiva = ', i,'   ');

  end;

end.

Часовой пояс GMT +4, время: 20:55.