Три задачи на Паскале

[Drive007]

помогите пожалуйста решить задачи!впринцыпе не сложные.......но очень надо решить(

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

 

[AlexZir]

помогите пожалуйста решить задачи!впринцыпе не сложные.

Ну так в чем проблема? Если несложные - попробуйте решить самостоятельно!

 

[Mr.П 2.0]

Вот 3 задача остальные влом.

Var a:array[1..1000] of longint;
n:integer; min,max:longint; i:byte;
begin
Writeln('vvedite kol-vo elementow');
repeat
readln(n);
until ((n>=1) or ( n<=1000));
for i:=1 to n do
begin
begin
readln(a[i]);
Write(i,' chlen = ');
Write(' ', a[i],' ');
end;
Writeln;
end;
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if a[i]<min
then min:=a[i];
if a[i]>max
then
max:=a[i];
end;
Writeln('minimal = ',min,' maxmal = ',max);
readln;
end.

 

[Vladimir_S]

Охо-хо, грехи наши тяжкие...
Ну что же, начинаем исправлять:

Var 
 a:array[1..1000] of longint; 
 n:integer; 
 min,max:longint; 
 i,[COLOR=Red]Imin,Imax[/COLOR]:byte; 
begin 
 Writeln('vvedite kol-vo elementow'); 
 repeat 
  readln(n); 
 until ((n>=1) [COLOR=Red]and[/COLOR] ( n<=1000)); 
 for i:=1 to n do 
  begin  
   Write('a[',i,']= '); 
   readln(a[i]); 
  end; 
 min:=a[1]; 
 max:=a[1]; 
 [COLOR=Red]Imin:=1;
 Imax:=1;[/COLOR]
 for i:=2 to n do 
  begin 
   if a[i]<min then 
    [COLOR=Red]begin[/COLOR]
     min:=a[i]; 
     [COLOR=Red]Imin:=i;[/COLOR]
  [COLOR=Red]  end;[/COLOR]
   if a[i]>max then 
    [COLOR=Red]begin[/COLOR]
     max:=a[i]; 
     [COLOR=Red]Imax:=i;
    end;
[/COLOR]  end; 
 Writeln('minimal: a[',Imin,'] = ',min,'   maxmal: a[',Imax,'] = ',max); 
 readln; 
end.

И за что мне это наказание?..

 

[Drive007]

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

 

[Mr.П 2.0]

Вот 1 задача

var a,b:longint;
begin
Writeln('vvedite nomer bileta');
repeat
readln(a);
until ((a>= 100000) or (a<=999999));
a:=a div 1000;
b:=a mod 1000;
Writeln(a,' ',b);
a:=(a mod 10) + (a mod 100 div 10) + (a div 100);
b:=(b mod 10) + (b mod 100 div 10) + (b div 100);
Writeln(a,' ',b);
if a=b
then Writeln('bilet happy')
else Writeln('bilet nohappy');
readln;
end.

 

[Vladimir_S]

((a>= 100000) or (a<=999999))

Полная ахинея. Как всегда.

 

[Drive007]

помогите поправить вот эту программу...


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>max
then max:=a;
k:=i;
end;
procedure opr_min( var a:mass; t,min:integer);
var i:1..10;
begin
min:=a[1];
t:=1;
for i:=1 to 10 do
if a<min
then min:=a;
t:=i;
end;
begin
randomize;
for i:= 1 to 10 do
a:=random(20);
for i:= 1 to 10 do
write(a:3);
writeln;
opr_max(a,k,max);
opr_min(a,t,min);
writeln('max=', max:3,'индекс=', k:3 );
writeln('min=', min:3,'индекс=', t:3);
end.

 

[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>maxx
then begin maxx:=a;
p:=i;
end;
end;
procedure opr_min(n:mass; var c,minn:integer);
var i:1..10;
begin
minn:=a[1];
c:=1;
for i:=1 to 10 do
if a<minn
then begin minn:=a;
c:=i;
end;
end;
begin
randomize;
for i:= 1 to 10 do
a:=random(20);
begin for i:= 1 to 10 do
write(a:3);
writeln;
end;
opr_max(a,k,max);
opr_min(a,t,min);
writeln('max=', max:3,'индекс=', k:3 );
writeln;
writeln('min=', min:3,'индекс=', t:3);
end.

 

[Drive007]

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

 

[Drive007]

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

 

[Drive007]

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

 

[AlexZir]

Задача про "счастливый" билет (или похожие) уже неоднократно решалась на нашем форуме, задействуйте контекстный поиск.