Дан фрагмент программы ( нужно составить целую программу ) ПАСКАЛЬ count:= 0; for i:=1 to...

Question

Дан фрагмент программы ( нужно составить целую программу ) ПАСКАЛЬ count:= 0; for i:=1 to N do if (180 < A[i]) and (A[i] < 190) then count:= count + 1; ЗАДАЧА : В массиве записаны данные о росте баскетболистов. Сколько из них имеет рост больше 180 см, но меньше 190 см?

Answer 1

Program basketbolisti;

var

 a: array [1..1000] of integer;

 count, i, n: integer;

begin

 count := 0;

 writeln('Введите количество баскетболистов');

 readln(N);  

 for i := 1 to N do

 begin

   writeln('Введите рост ', i,' баскетболиста');

   readln(a[i]);

   if (180 < A[i]) and (A[i] < 190) then

     count := count + 1;

 end;

 writeln(count);  

end.

Comments

Спасибо

---

но все равно программа не выполняется, не воспринимает readln(N) и writeln(count)

---

почему ?

---

Выдает неожиданный символ ' ' ?

---

если да, то просто удалите все отступы перед каждой строкой

---

Program basketbolisti;var a: array [1..1000] of integer; count, i, n: integer;begin count := 0; writeln('Введите количество баскетболистов'); readln(N); for i := 1 to N do begin writeln('Введите рост ', i,' баскетболиста'); readln(a[i]); if (180 < A[i]) and (A[i] < 190) then count := count + 1; end; writeln(count); end.

---

у меня такой вариант работает

---

большое вам спасибо

---

не за что))