Регистрация
gal12
24.03.2023 12:48
Информатика
Есть ответ 👍

Поменять местами минимальные и максимальные элементы

218
355
Посмотреть ответы 2

Ответы на вопрос:

khezh073
khezh073
4,6(57 оценок)
Const n=20; var a: array[1..n] of integer;     i, max, imax, min, imin : integer; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(101)-50;     write(a[i],' ');   end;   writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =2 to n do   begin   if a[i] > max then begin max: =a[i]; imax: =i; end;   if a[i] < min then begin min: =a[i]; imin: =i; end;   end; writeln('max=',max,'   min=',min); a[imax]: =min; a[imin]: =max; writeln('измененный массив: '); for i: =1 to n do write(a[i],' ');     writeln; end. пример: исходный массив: -20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0  max=48   min=-38 измененный массив: -20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0 
PomogitePPLez
PomogitePPLez
4,5(63 оценок)
Считаем количество байтов на странице: 50 * 60 = 3000, на листе 2 * 3000 = 6000. в дискете  1457664 байт.ответ:   1457664 / 6000 = 242,944 листов.

Популярно: Информатика