составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства

[sasharom97]

Определена запись:

Record
	name:array [1..m] of char; {название государства}
	sqr : real; {площадь территории}
	peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов}
	end;

Используя предложенную структуру записи, составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства, удовлетворяющего требованиям, указанным в варианте и соответствующие характеристики.
Россия, Молдова, Армения. Получить список государств в порядке возрастания плотности населения.

[Stilet]

Твои попытки имеются? Их можно увидеть?

[sasharom97]

Сообщение от Stilet

Твои попытки имеются? Их можно увидеть?

вот так?

program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop:word;
         sch:word;
         hosp:word;
         inst:word;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
    G[1].name:='Молдова'; G[2].name:='Армения '; G[3].name:='Россия';
    G[1].peop:=20;G[2].peop:=40;G[3].peop:=140;
    G[1].S:=20;G[2].S:=60;G[3].S:=500;
    G[1].sch:=200;G[2].sch:=100;G[3].sch:=5000;
    G[1].hosp:=100;G[2].hosp:=60;G[3].hosp:=3000;
    G[1].inst:=20;G[2].inst:=20;G[3].inst:=2000;

    for i:=1 to 2 do begin
    for j:=1 to 2 do
    if G[j].Peop/G[j].S<G[j+1].Peop/G[j+1].S
    then begin
    x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
    end;end;
    for i:=1 to 3 do
    Writeln(G[i].name);
    readln;
    end.

[Stilet]

Так. Только давай малость подмарафетим:

program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop, sch,hosp,inst:integer;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
  for i:=1 to m do begin 
    write('название государства'); readln(G[i].name);
    write('площадь территории'); readln(G[i].S);
    write('численность населения'); readln(G[i].peop);
    write('число школ'); readln(G[i].sch);
    write('больниц'); readln(G[i].hosp);
    write('вузов'); readln(G[i].inst);
 end;

    for i:=1 to m do     for j:=1 to m do
       if (G[j].Peop/G[j].S) < (G[j+1].Peop/G[j+1].S)    then begin
           x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
      end;

    for i:=1 to 3 do With G[i] do
      Writeln(name:30,S:10:2,Peop:10,sch;10,hosp:10,inst:10);
    readln;
end.

[sasharom97]

Спасибо большое).