Помогите решить задачку!!!! Pascal ABC. Необходимо изменить только одну строчку, все

Помогите решить задачу!!!! Pascal ABC. Необходимо поменять только одну строчку, все перепробовала, не выходит. Помогите!!

Задать свой вопрос
Борис
Добавь текст программки, пожалуйста...
1 ответ

const n=5;

a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');

var i,m,mi: integer;

begin

m:=length(a[1]);

mi:=1;

for i:=2 to n do if length(a[i])gt;m then

begin

m:=length(a[i]);

mi:=i

end;

writeln;

writeln(a[mi])

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт