Question

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

Answer 1

program pr1;uses crt;var a:array[1..20] of integer; i,j,max,ind :integer;begin  max:=a[ 1 ];  for i:=1 to 20 do   begin    writeln('Введите цену(макс 20 товаров)');    readln(a[i])   end;  for i :=2 to 10 do    begin     if a [ i ] > max      then      begin      max:=a [ i ]      ind:=i;      end  end;  writeln('максимальная цена тавара ',a[i],'р. И ег оиндекс в массиве=',ind)end.