•   В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т.д.. Вывести исходный и полученный массивы, ABC Paskal

Ответы 1

  • Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.

    a,i,m(12) as integer

    for i=1 to 12 do

    readln(m(i));

    for i=1 to 6 do begin

    a:=m(i);

    m(i):=m(13-i);

    m(12-i):=a;

    end;

    for i=1 to 12 do

    writeln(m(i));

    end.

    Если что-то не понятно или выводит ошибку - пишите.

     

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years