Занесите информацию о десяти городах России в массивы g (название города), n (численность...

Question

Занесите информацию о десяти городах России в массивы g (название города), n (численность населения). Выведите название городов где: численность населения имеет максимальное и минимальное значение.

Answer 1

Const
   g:array [1..10] of string = ('Москва','Санкт-Петербург','Новосибирск','Екатеринбург','Нижний Новгород','Казань','Самара','Омск','Челябинск','Ростов-на-Дону');
   n:array [1..10] of longint = (12198,5192,1567,1428,1268,1206,1171,1174,1182,1115);
var
   i,imax,imin:longint;
begin
  imax:=1; imin:=1;
     for i:=1 to 10 do   
          begin     
              if n[i]>n[imax] then imax:=i;        
              if n[i]end;

writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с наименьшей численностью ',g[imin]);

end.