15.03.2010, 18:48
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
это для первой задачи
PHP код:
program asdf;
const n=10;
a:array[1..n] of integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
writeln('Ishodniy massive');
for i:=1 to n do
write(a[i], ' ');
writeln;
writeln('Rezultat');
for i:=n downto 1 do
write(a[i], ' ');
writeln;
readln;
end.
Это для 2
PHP код:
program asdf;
const n=30;
a:array[1..n] of integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
X := 1;
N := A[X];
for i:=1 to n do
If N < A[I] Then
Begin
X := I;
N := A[X];
K=i
End;
X := 1;
N := A[X];
for i:=1 to n do
If N > A[I] Then
Begin
X := I;
N := A[X];
L=i
End;
for i=K to L do
write(a[i], ' ');
writeln;
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 15.03.2010 в 19:08..
|
|
|