Составте программу котораязаполняет массив А от 1 до 10…

Question

Составте программу котораязаполняет массив А от 1 до 10, случайными целыми числами в диапозоне от 1 до 10 , затем меняет местами максимальные иминимальные элементы.

mult2801 · Accepted Answer

Program Pr1; uses crt; var mas: array[1… 10] of integer; i,max,min,h,g: integer; beginclrscr; max: =0; min: =10; randomize; for i: =1 to 10 do mas[i]: =1+random (10); for i: =1 to 10 do write (mas[i]); for i: =1 to 10 do begin if mas[i]>max then begin max: =mas[i]; h: =i; end; if mas[i]<min then begin min: =mas[i]; g: =i; end; end; i: =mas[h]; mas[h]: =mas[g]; mas[g]: =i; writeln (); for i: =1 to 10 do write (mas[i]); end.

Составте программу котораязаполняет массив А от 1 до 10…

Задание:

Решение: