В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого и самого дорогого товара и его индекс.

program zz1;

var mas:array[1 ... 10] of integer;

i, min, max, k1, k2:integer;

begin

for i:=1 to 10 do / /заполняем массив случайными числами от 10 до 30

mas[i]:=random (21) + 10;

for i:=1 to 10 do / /выводим полученный массив на экран

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

max:=0; min:=1000; / /задаем начальные значения

for i:=1 to 10 do

if mas[i]>max then begin max:=mas[i]; k1:=i; end; / /проверяем, если число из массива больше максимального, то записываем его в максимальное

for i:=1 to 10 do

if mas[i]
writeln ('самый дешевый товар стоит - ', min, ' его номер - ', k2); / /выводим ответ

write ('самый дорогой товар стоит - ', max, ' его номер - ', k1);

end.