Недавнее содержимое от Drive007

а как нужно исправить

не поможите мне решить ту задачу с билетами...можно даже без использования подпрограмм.....она одна осталась...не могу справиться

просто мне все эти проги нужно решить при помощи подпрограмм

вроде сам справился uses crt; type mass=array[1..10] of integer; var a:mass; i:1..10; min,max,k,t,p,c:integer; procedure opr_max(n:mass; var p,maxx:integer); var i:1..10; begin maxx:=0; p:=0; for i:=1 to 10 do if a[i]>maxx then begin maxx:=a[i]; p:=i; end; end; procedure opr_min(n:mass; var...

помогите поправить вот эту программу... uses crt; type mass=array[1..10] of integer; var a:mass; i:1..10; min,max,k,t:integer; procedure opr_max( var a:mass; k,max:integer); var i:1..10; begin max:=a[1]; k:=1; for i:=1 to 10 do if a[i]>max then max:=a[i]; k:=i; end; procedure opr_min( var...

спасибо и на этом!!)

помогите пожалуйста решить задачи!впринцыпе не сложные.......но очень надо решить( 1)Определить,является ли Ваш автобусный билет счастливым. 2)Найти числа,для которых перестановка последней цифры в начало увеличивает его в n раз. 3)Ввести одномерный массив,найти индексы и значения максимального...