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

Задание:

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

Решение:

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. Вроде все еще протестируй в паскальна всякий случай

Знаете другой ответ?

Отправить свой ответ