В массиве хранится информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс
Answers & Comments
Ivan10353
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.
Answers & Comments