Циклы, паскаль, массивы

[NitriNKa]

Дорогие умницы и умники, Выручите пожалуйста!! Решите на Паскале : Произвести следующую обработку 15 целых чисел: подсчитать количество нулевых чисел и вычислить квадраты чисел, входящих в диапазон [-5..5]. (нужно с операторами While-Do)! Спасибо огромное заранее

[maladoy]

и чего не получается?

[NitriNKa]

честно??? ничего, я в этом абсолютно не разбираюсь, ну хотя нет, что то знаю, но это - не могу понять

[maladoy]

Program ForYou;// СОЙДЕТ?
uses crt;
var i,s,l:integer;
     a:array [1..15] of integer;
begin
  i:=1;
  l:=0;
  
  while i<16 do begin
    readln (a[i]);
    if a[i]=0 then inc(l);
    inc(i); 
  end;
  
  i:=1;

  while i<16 do begin
    if (a[i]>=-5) and (a[i]<=5) then writeln(sqr(a[i]));
    inc(i);
  end;

  if l>0 then writeln ('KOl-vo nulevyx :',l:4)
  else 
  writeln('nulevyx net');
  readln;
end.

[NitriNKa]

ааааааааа, спасибо огромнейшее!!! Только у меня теперь вопросик, что такое Inc(i)??

[maladoy]

Inc(i) равносильно

 i:=i+1;