Question

пожалуйста помогите очень надо!!!В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс.вот программа но в ней где-то ошибкаprogram xxx;var a:array [1..10] of integer;i, max, min:integer;beginfor i:=1 to 10 do read(a[i]);min:=1;for i:=2 to 10 doif a[i]<min then min:=a[i];writeln('a[',i,']=',a[i]);max:=a[i];for i:=2 to 10 doif a[i]>max then max:=a[i];writeln('a[',i,']=',a[i]);end.

Answer 1

...

writeln('a[',i,']=',a[i]);

readln;

end.

Answer 2

min і max нужно присвоить а[1].

Answer 3

Программа, которую вы предоставили, содержит некоторые ошибки и неправильную логику. Я могу помочь вам исправить ее. Вот исправленный вариант программы:

program xxx;
var
  a: array[1..10] of integer;
  i, max, min, minIndex, maxIndex: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
  
  min := a[1];
  max := a[1];
  minIndex := 1;
  maxIndex := 1;
  
  for i := 2 to 10 do
  begin
    if a[i] < min then
    begin
      min := a[i];
      minIndex := i;
    end;
    
    if a[i] > max then
    begin
      max := a[i];
      maxIndex := i;
    end;
  end;
  
  writeln('Минимальная стоимость товара: ', min);
  writeln('Индекс минимального товара: ', minIndex);
  writeln('Максимальная стоимость товара: ', max);
  writeln('Индекс максимального товара: ', maxIndex);
end.

В этой исправленной программе мы добавили переменные `minIndex` и `maxIndex`, чтобы отслеживать индексы самого дешевого и самого дорогого товаров. Затем мы перебираем элементы массива и обновляем значения `min`, `minIndex`, `max` и `maxIndex` при необходимости. Наконец, выводим результаты.

Примечание: Вам нужно будет запустить эту программу в среде разработки Pascal для получения результата.