Взаданном случайным образом массиве максимальное значение заменить минимальным а минимальное выдает ошибку там где random(30); проверьте program a1; var a: array[1..30] of integer; amax,amin,i,k1,n,s: integer; begin writeln('введите n элементов
массива'); readln (n); for i: =1 to n do random(30); writeln('введённый массив имеет вид'); write (a[i], ' '); writeln; amax: =a[1]; k1: =1; for i: =2 to n do if a[i]> amax then amax: =a[i]; amin: =a[1]; for i: =2 to n do if a[i]
248
310
Ответы на вопрос:
program a1; var a: array[1..30] of integer; amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], ' '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do if a[i]> amax then begin amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do if a[i]< amin then begin amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];
a[imin]: =a[imax];
a[imax]: =s; for i: =1 to n do writeln(a[i],' '); end.
Популярно: Информатика
-
SAIIIEK04.02.2023 00:40
-
lizalubavina25.04.2020 22:05
-
Аббос111101.12.2020 14:38
-
meladse110515.05.2021 22:01
-
damama13.11.2022 07:36
-
ostapenkonatasha10.04.2021 00:47
-
BatsonPlay08.11.2022 05:00
-
8953827726627.08.2020 16:38
-
АкадемеG05.10.2022 05:39
-
SRALIK09.04.2022 21:46