Задать вопрос
1 февраля, 01:57

Задать массив размерности 25 случайным образом от - 10 до 9. Поменять местами первый минимальный и последний максимальный элементы массива. Вывести первоначальный массив и получившийся массив. Помогите решить в паскале

+2
Ответы (1)
  1. 1 февраля, 03:21
    0
    const n = 25;

    var

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

    i, num, num1, min, max: integer;

    begin

    min : = 10;

    max : = 0;

    for i : = 1 to n do begin

    a[i] : = random (20) - 10;

    write (a[i], ' ') ;

    if (a[i] < min) and (min = 10) then begin

    min : = a[i];

    num : = i;

    end;

    if (a[i] > max) then begin

    max : = a[i];

    num1 : = i;

    end;

    end;

    a[num] : = max; a[num1] : = min;

    writeln;

    for i : = 1 to n do write (a[i], ' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задать массив размерности 25 случайным образом от - 10 до 9. Поменять местами первый минимальный и последний максимальный элементы массива. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы