Pascal Определить, сколько комбайнов достигли плановой наработки A гектаров

Среди толпы я одинок

Pascal Определить, сколько комбайнов достигли плановой наработки A гектаров

Written by Administrator
Tagged under Pascal Массивы Pascal
Print

За сезон уборки каждым из 10 комбайнов убрано соответственно p1, p2, …p10 гектаров поля. Определить, сколько комбайнов достигли плановой наработки A гектаров..

var pARR: array[1..10] of integer;
 i,n,A: integer;
begin
 write('Input A');
 readln(A);
 
 for i:=1 to 10 do
  begin 
    write('Input i ',i); 
    readln(pARR[i]); 
  end;
 
 n:=0;
 
 for i:=1 to 10 do
   if (pARR[i]>=A)
     then n:=n+1;
 
 writeln('n = ',n,' Press Enter');
 readln();

end.