Сформулируйте условие программы

program inr1;

type art=record

nume:string;

nr_loc:longint;

end;

var a:array[1..20] of art;

n,i:integer;

begin

write('n=');readln(n);

for i:=1 to n do begin

write('имя',i,'=');readln(a[i].имя);

write('nr_loc=');readln(a[i].nr_loc)

end;

writeln(Все города с населением более 100000 человек':');

for i:=1 to n do if a[i].номер_место>=100000 then writeln(a[i].имя);

readln;

end.

vladvladc    1   17.10.2021 18:56    2