Определить названия государства с минимальной плотностью населения

@Gira · Регистрация: 12.06.2014

Author24 — интернет-сервис помощи студентам

Известны данные о численности населения(в милионах жителей) и площади( в тисячах квадратных километров) 28-ми государств. Определить названия гогсударства с минимальною плотностю населения)

@dominantaim · 21.06.2014, 13:26

Pascal

const N=28;
var st:array[1..28] of string;
var m:array[1..28] of real;
var i,j,o:integer;
var min:real;
begin 
writeln('nazvanie stran');
for i:=1 to N do readln(st[i]);
for i:=1 to N do begin
writeln('strana ',st[i]);
writeln('kollwo 4el');
read(j);
writeln('km');
read(o);
m[i]:= j/o;
end;
min:=m[1]; 
o:=1;
for i:=2 to N do begin 
if min > m[ i ] then begin min:=m[ i ]; 
o:=i; 
end;
end;
write (st[o]); 
end.

@Gira 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 48
		1
	Определить названия государства с минимальной плотностью населения 21.06.2014, 11:57. Показов 2068. Ответов 1 Метки нет (Все метки) Известны данные о численности населения(в милионах жителей) и площади( в тисячах квадратных километров) 28-ми государств. Определить названия гогсударства с минимальною плотностю населения) 0

	21.06.2014, 13:26

Определить названия государства с минимальной плотностью населения

Решение