Паскаль. Дан массив L содержащий 26 частей, в интервале от -15

Паскаль. Дан массив L содержащий 26 элементов, в промежутке от -15 до 13. Отыскать малый и наибольший элементы и их порядковые номера и вывести их на э
кран.

Задать свой вопрос
2 ответа
Не тяжело, но не на сто процентов условие выполнено. Лови решение:

program arrs;
var
a : array[1..26] of integer;
i, min, max : integer;
m1, m2 : byte;

begin
randomize;
for i:=1 to 26 do begin
a[i] := random(29)-15;
write(a[i], ' ');
end;
min := 15;
max := -20;
for i:=1 to 26 do begin
if a[i] lt; min then begin
min:=a[i];
m1 := i;
end;
if a[i] gt; max then begin
max:=a[i];
m2 := i;
end;
end;
writeln;
writeln('Минимальный элемент в ячейке ', m1, ' равен ', min);
writeln('Наибольший элемент в ячейке ', m2, ' равен ', max);
end.


тестовый прогон:

0 2 -1 2 -9 -13 -9 -5 0 -14 11 6 8 -11 13 3 -15 -6 -15 -14 -3 13 9 7 3 -4
Малый элемент в ячейке 17 равен -15
Наибольший элемент в ячейке 15 равен 13
Лол, -15 и 13 это разве так тяжело?
Pashok Krivjakov
-13 и 11*
Камилла Кутарбе
Не шарю в массивах
Нина Тофель
Поможешь?
Кира
Шаришь в русском?
Гришенок Санек
Ну более наименее
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт