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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
