Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива (числа вводятся с клавиатуры)

222

251

Посмотреть ответы 2

Ответы на вопрос:

Настенька20030410

Информатика

4,5(26 оценок)

Var a: array [0..14] of integer; min, max, i: integer; begin for i : = 0 to 14 do readln(a[i]); for i : = 0 to 14 do begin if (a[min] > a[i]) then min : = i; if (a[max] < a[i]) then max : = i; end; writeln('min: a[', min, ']', #13, 'max: a[', max, ']'); end.