Составьте программу, которая заполняет массив a[1…

Question

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

Answer 1

65

tbanki_ru

21 февраля 2023

Program new; var a: array [1… 100] of integer; i,n,p,min,max,mid: integer; beginrandomize; for i: =1 to 100 do begina[i]: =random (101); end; for i: =1 to 100 dobeginif a[i]max thenbeginmax: =a[i]; p: =i; end; end; mid: =a[p]; a[p]: =a[n]; a[n]: =mid; end. Вроде все еще протестируй в паскальна всякий случай

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

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

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

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

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