4. Знайдіть в Інтернеті 5 найбільших за чисельністю населення міст Донецької області (підконтрольна - id1602932220201114 от Коши 14.11.2020 07:29

Question

Информатика: 4. Знайдіть в Інтернеті 5 найбільших за чисельністю населення міст Донецької області (підконтрольна територія). а) Розробіть програму створення відповідного списку (формат [місто, населення]), визначення загальної кількості населення цих міст, найбільшого і найменшого з них за чисельністю.

Коши · Accepted Answer

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

A[i]:=random(15)+1;

write(A[i]:4);

end;

for i:=1 to n-1 do

begin

for j:=1 to n-1 do

if summa(A[j])<summa(A[j+1]) then

begin

k:=A[j];

A[j]:=A[j+1];

A[j+1]:=k

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.

MOGZ ответил