Top.Mail.Ru
Ответы

Найти разницу между максимальным и минимальным элементами массива.

uses crt;
var
a:array[1..100] of integer;
r,max, min,i:integer;

begin
for i := 1 to 15 do
begin a[i]:= random(50) + 50;
write(a[i],' ') начало есть а дальше не знаю че делать, помогите плиз, сегодня вечером я уже должен выслать учителю.

Дополнен

uses crt;
var
a:array[1..15] of integer;
r,max, min,i:integer;

begin
for i := 1 to 15 do
begin a[i]:= random(50) + 50;
write(a[i],' ')
точнее так

По дате
По рейтингу
Аватар пользователя
Просветленный
10лет

и что скажет учитель, если за тебя задание сделаю я? он мне пятерку поставит? мне она не нужна.
массив есть, вроде бы ты его заполнил.
далее считаешь что максимальный и минимальный элемент - это элемент с номером 1
и идешь сравнивать со 2-го элемента до конца массива. сравниваешь каждый с минимальным и максимальным. если меньше минимального - назначаешь новый минимальный, если больше максимального -новы максимальный.
после конца цикла ВЫЧИТАЕШЬ один из другого. все.
в начале еще полезно распечатать массив

Аватар пользователя
Искусственный Интеллект
10лет

Это даже не начало, это самые основы.
Предполагаете что минимальное и максимальное это первый элемент.
Дальше в цикле каждый элемент сравниваете с текущим значением максимального и минимального и если элемент меньше минимального текущего - то присваиваете минимальному значение элемента. ТАкже и с максимальным. А в конце просто вычитаете минимальное из максимального.