Регистрация
Danusja13
12.11.2021 01:26
Информатика
Есть ответ 👍

Сформулируйте условие программы 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.

129
158
Посмотреть ответы 1

Ответы на вопрос:

БлэтНэвэльный
БлэтНэвэльный
4,7(46 оценок)
(64, с8, с8), (1e, 32, c8), (3c, b4, 14), (ec, 96, 1e)

Популярно: Информатика