Developing.ru

ПОМОГИТЕ ПЛЗ
предусмотреть меню:
ввод данных с клавиатуры;
ввод данных из файла;
выход.
выполнить с применением подпрограмм пользователя.
и задача
Зашифровать введенную с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвертым и.т.д. Затем провести дополнительную шифровку результа-та смещения кода. Провести дешифровку.

Помогите, пожалуйста, мне надо решить задачку: удалить последний чётный элемент из одномерного массива, причём массив надо вводить вручную...

тебе полный код или только идею?

Всё, если можно...

в принципе можно, но за рациональность не ручаюсь, сама тока год паскаль учу.
Сейчас будет.

Лови. Если что еще обращайся.

uses crt;
const w=10000;
var x,n,i,j:integer;
a:array[1..w] of integer;
begin
clrscr;
Writeln('Введите размерность массива');
readln(n);
writeln('Введите массив');
for i:=1 to n do begin
Writeln('a[',i,']=');
Read(a);
End;

For i:=1 to n do begin
if a mod 2 =0 then x:=i;
end;

writeln;
i:=1;
while i<=n do begin
if i=x then i:=i+1
else
begin
write(a:5);
i:=i+1;
end;
end;
readln;
End.

Все работает.

Хоть напиши, так ли?

Не, там должно быть по-другому, более короткий вариант...

Тогда может перевестив строку, из строки удалить, и назад в массив?

Вот моя примерная разработка, но она не работает...

Program Udal;
const n=10;
Var a: array [1..n] of Integer;
o, i: Integer;
begin
Writeln('Enter the massive elements');
for i:=1 to n do
readln(a);
writeln('Scanning massive...');
for i:=1 to n do
If a mod 2 = 0 then i:=o;
for i:=1 to n-1 do
if o>n then
a[n]:=a[i+1];
a[n]:=0;
for i:=1 to n do
writeln(a, ' ');
end.