Определите, в каком районе средняя урожайность пшеницы была выше — Pascal(Паскаль)

const n=10;
var s,u:array[1..n] of integer;
    i,imx:integer;
begin
randomize;
writeln('Номера районов');
for i:=1 to n do
if i=1 then write(i:4)
else write(i:5);
writeln;
writeln('Площади засеянные пшеницей, га');
for i:=1 to n do
 begin
  s[i]:=500+random(500);
  write(s[i]:5);
 end;
writeln;
writeln('Собранный урожай, цн');
imx:=1;
for i:=1 to n do
 begin
  u[i]:=5000+random(5000);
  write(u[i]:5);
  if u[i]/s[i]>u[imx]/s[imx] then imx:=i;
 end;
writeln;
write('Наивысшая средняя урожайность в районе ',imx);
end.

Leave a Comment

25 − 22 =