Занесите информацию о десяти городах России в массивы g (название города), n (численность населения). Выведите название городов где: численность населения имеет максимальное и минимальное значение.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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]<n[imin] then imin:=i;
end;
writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с наименьшей численностью ',g[imin]);
end.