Задать вопрос
13 октября, 13:24

Поменяйте местами минимальные и максимальные элементы массива. (Паскаль!)

+2
Ответы (1)
  1. 13 октября, 13:47
    0
    Var a, min, max, i1, i2, i;

    m:array[1 ... 10000] of longint;

    begin

    min:=1000000;

    readln (a) ;

    for i:=1 to a do

    begin

    read (m[i]) ;

    if m[i]>max then

    begin

    max:=m[i];

    i2:=i;

    end;

    if m[i]
    begin

    min:=m[i];

    i1:=i;

    end;

    end;

    a:=m[i1];

    m[i1]:=m[i2];

    m[i2]:=a;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Поменяйте местами минимальные и максимальные элементы массива. (Паскаль!) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
Помогите с информатикой 1. Что такое массив? 2. Что такое элемент массива? 3. Что такое индекс массива? 4. Что такое размерность массива? 5. Зачем нужны массивы? 6. Как можно обратиться к ячейке массива? 7. Какого типа могут быль элементы массива? 8.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)