0 голосов
20 просмотров

пожалуйста помогите очень надо!!!

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

вот программа но в ней где-то ошибка

program xxx;

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

i, max, min:integer;

begin

for i:=1 to 10 do read(a[i]);

min:=1;

for i:=2 to 10 do

if a[i]

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

max:=a[i];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

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

end.

от (34 баллов) в категории Информатика

2 Ответы

0 голосов

...

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

readln;

end.

от Начинающий (931 баллов) 1 2 4
0 голосов

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

от Отличник (6.1 тыс. баллов) 2 2 5
...