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

Question

Информатика

Патрикий

10 октября, 13:43

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

+5

Ответы (1)

Знаете ответ на вопрос?

Татуня · Answer 1

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.