Поменять местами max и min элементы и вывести массив 1 max и порядковый номер , 2 min и порядковый номер
237
458
Ответы на вопрос:
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]< min then min: =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.
Популярно: Информатика
-
MrDimon0705.06.2023 00:23
-
Adriet27.01.2022 05:37
-
andrievskiyvitaliy03.06.2022 01:11
-
Coova11.04.2020 06:19
-
ksubol77705.06.2020 11:57
-
kuznitsovas29.06.2021 14:55
-
знание33333316.05.2022 23:41
-
slunyavchik09.03.2022 11:41
-
Danil11111229.11.2022 13:12
-
асат729.12.2022 16:38