Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста написать на паскале!Введите массив ADR[1..10],элементами которого являются адреса студентов в формате:город улица дом квартира.Вывести те элементы ,которые содержат город"Краснодар".Ввод и вывод данных оформите разными цветами.

Ответ оставил Гость

Uses crt;var ADR:array[1..10] of string;
sub:array[1..10] of string;
i,k:integer;
s:string;
begin;
for i:=1 to 10 do
begin;
writeln(Input town of ,i,student);
readln(s);
ADR[i]:=ADR[i]+s+ ;
writeln(Input street of ,i,student);
readln(s);
ADR[i]:=ADR[i]+s+ ;
writeln(Input house of ,i,student);
readln(s);
ADR[i]:=ADR[i]+s+ ;
writeln(Input apartament of ,i,student);
readln(s);
ADR[i]:=ADR[i]+s;
if pos(Краснодар,ADR[i])<>0 then
begin;
inc(k);
sub[k]:=ADR[i];
end;
end;
TextColor(4);
writeln(Result:);
for i:=1 to k do
writeln(sub[i]);
end.