1. Перенести в начало одномерного массива все нечётные элементы.(файловый ввод и вывод; ввод с помощью типизир константы и вывод в типизир файл)
Код: Выделить всё
Program ktulhu;
uses crt;
const n=7;
var
a:array [1..n] of integer;
F1:Text ;
i,k,j,p:integer;
b,c,d,f:integer;
begin
writeln;
writeln('Perenesti v nachalo odnomernogo massiva vse nechetnble elementbl');
clrscr;
writeln('Ishodnbli odnomernbli massiv');
assign(F1, 'File2.txt');
{$I-}
Reset(F1);
if IOResult<>0 then
begin
writeln('Oshibka pri otkrbltie faila!');
readln;
exit;
end;
{$I+}
For i:=1 to n do
begin
read(F1,a[i]);
write(a[i],' ');
end;
writeln;
for i:=1 to n do
If (a[i] mod 2)<>0 then
begin
k:=i;
P:=a[k];
for i:=k downto 2 do
a[i]:=a[i-1];
a[1]:=P;
end;
writeln('Konechnaya posledovatelnost');
For i:=1 to n do
write(a[i] , ' ');
close(F1);
readln;
end.
2. Дана последовательность а1,а2...,а20. Расположить расположить нечётные элементы последовательности по убывнию.( Использовать модифицированный метод простого выбора);
Код: Выделить всё
program pyz;
const n = 20;
var V:array[1..n] of integer;
i,j,tmp, min:integer;
begin
Randomize;
for i:=1 to n do
V[i]:= Random(100);
Writeln('Zaceni massiv: ');
for i:=1 to n do Write(V[i],' ');
begin
if min>V[i] then
min:=V[i];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if V[i] < V[j] then begin
tmp:= V[i];
V[i]:= V[j];
V[j]:= tmp;
end;
Writeln;
Writeln('Vse kruto, po ubblvaniu: ');
for i:=1 to n do Write(V[i],' ');
Readln;
End;
end.