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

Question

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

Answer 1

92

mult2801

17 февраля 2023

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]

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: