0 голосов
31 просмотров
от (34 баллов) 1 в категории Информатика

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

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

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

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.

2 Ответы

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

...

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

readln;

end.

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

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

Похожие вопросы

0 голосов
1 ответ 53 просмотров
0 голосов
1 ответ 81 просмотров
0 голосов
1 ответ 96 просмотров
0 голосов
1 ответ 93 просмотров
0 голосов
1 ответ 88 просмотров
0 голосов
1 ответ 65 просмотров
...