Задать вопрос

Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal

+5
Ответы (1)
  1. 16 июня, 13:02
    0
    program zz1;

    const n = 50; / / задаем количество элементов в массиве

    var i, s, k, a:integer; / / задаем переменные целого типа

    m:array [1 ... n] of integer;

    begin

    for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

    m[i]:=random (23);

    for i:=1 to n do / / выводим полученный массив на экран

    write (m[i],' ');

    writeln; / / переходим на новую строку для вывода ответа

    for i:=1 to n do

    if m[i] 0 then begin k:=i; break; end; / / находим первый элемент не равный нулю

    for i:=n downto 1 do

    if m[i] 0 then begin a:=i; break; end; / / находим последний элемент не равный нулю

    s:=m[k]; m[k]:=m[a]; m[a]:=s; / /меняем

    for i:=1 to n do / / выводим полученный массив на экран

    write (m[i],' ');

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Дан массив целых чисел. Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива. Число элементов в массиве не более 10-ти Pascal
Ответы (1)
1) Дан одномерный массив А[N], - целых чисел. Заменить все большие 7 члены массива числом 7. Найти количество таких членов. 2) Задан массив из 10 элементов, найти произведение элементов массива. Задача №3.
Ответы (1)
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
Ответы (1)
1) Заполнить массив N чисел значениями и вывести на экран произведение чётных элементов массива. 2) Дан массив действительных чисел. Найти максимальный элемент среди отрицательных элементов и поменять его местами с минимальным положительным.
Ответы (1)
1. Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2. Дан одномерный массив из Н элементов. Найти среднее арифметическое положительных четных элементов данного массива
Ответы (1)