Связь с администрацией сайта:       

demo

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

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

За сезон уборки каждым из 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.

 

 

Rate this item
(4 votes)
Login to post comments