Опции

[Валенсия]

Array94. Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными номерами (1, 3 .....). Условный оператор не использовать.

Array97. Дан целочисленный массив размера N. Удалить из массива все одинаковые элементы, оставив их последние вхождения.

Буду премного благодарна. Пишите в личку, согласна заплатить в пределах разумного

[volkov]

program Array94;
var
a: array [1..10] of integer;
N,i:integer;
begin
writeln('Введите N (2<=10)');
readln(N);
writeln('Значения массива А');
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
for i:=1 to (n div 2)+(n mod 2) do
begin
a[i]:=a[i*2-1];
end;
n:=(n div 2)+(n mod 2);
Writeln('Ответ');
Writeln;
Writeln('Размер полученного массива ',n);
Write(' A[]: '); for i:=1 to n do Write(A[i],' ');
end.