Задать вопрос
29 мая, 13:26

Поменять местами max и min элементы и вывести массив 1 max и порядковый номер, 2 min и порядковый номер

+5
Ответы (1)
  1. 29 мая, 15:27
    0
    uses crt;

    var x:array[1 ... 10]of real;

    i:integer; min, max:real;

    begin

    clrscr; min:=9999999; max:=-9999999;

    for i:=1 to 10 do

    begin x[i]:=exp (i * (-1)) * (sqr (i) - 3*i) ;

    if x[i]
    if x[i] >max then max : = x[i];

    writeln (x[i]:1:5) ;

    end;

    writeln ('измененный массив с максимальным=', max:1:5,' и минимальным=', min:1:5) ;

    for i:=1 to 10 do

    begin

    if x[i] = min then writeln (max:1:5) ;

    if x[i] = max then writeln (min:1:5) ;

    if (x[i]min) and (x[i]max) then writeln (x[i]:1:5) ;

    end;

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