1. Разработать схему алгоритма, который вводит массив из Nцелых чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.

2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.

3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:

а) 1 3 5 6 8 9

б) - 1 4 6 2 4 6 8 6 9

P. S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.

Program zadacha1;

uses crt;

const N=5; / / размер массива

var m:array[1 ... n] of integer;

i:integer;

Begin

Writeln ('Исходный массив');

For i: = 1 to n do

//readln (m[i]); / / для ручного ввода оставьте эту строку

begin / / для

m[i]:=random (101) - 50; / / случайного

Writeln (m[i]); / / эти

end; / /

Writeln ('Прямой вывод');

For i:=1 to n do

writeln (m[i]);

Writeln ('Обратный вывод');

For i:=1 to n do

writeln (m[n+1-i]);

End.

Program zadacha2;

uses crt;

const N=5; / / размер массива

var m:array[1 ... n] of integer;

i:integer;

Begin

Writeln ('Исходный массив');

For i: = 1 to n do

//readln (m[i]); / / для ручного ввода оставьте эту строку

begin / / для

m[i]:=random (101) - 50; / / случайного

Writeln (m[i]); / / эти

end; / /

Writeln ('Вывод');

For i:=1 to n do

if i mod 2 = 0 then writeln (m[i]);

End.

Program zadacha3;

uses crt;

const N=5; / / размер массива

var m:array[1 ... n] of integer;

i:integer;

Begin

Writeln ('Исходный массив');

For i: = 1 to n do

//readln (m[i]); / / для ручного ввода оставьте эту строку

begin / / для

m[i]:=random (101) - 50; / / случайного

Writeln (m[i]); / / эти

end; / /

Writeln ('Вывод');

For i:=1 to n do

if (n+1-i) mod 2 0 then writeln (m[n+1-i]);

End.

Program One;

const n=10; / / размер массива - при тестировании нужно поочерёдно поменять

var mas:array[1 ... n] of integer;

i:integer;

begin

writeln ('Введите элементы массива');

for i: = 1 to n do / / организуем цикл для ввода элементов массива

begin

write ('Введите ', i,'-й элемент ');

readln (mas[i]);

end;

writeln ('массив элементов: '); / / выводим массив в прямом порядке

for i:=1 to n do

writeln (mas[i]);

writeln ('обратный массив: '); / / выводим массив в обратном порядке

for i:=n downto 1 do / / обратный цикл - от n до 1

writeln (mas[i]);

end.

Program Two;

const n=10; / / размер массива - при тестировании нужно поочерёдно поменять

var mas:array[1 ... n] of integer;

i:integer;

begin

writeln ('Введите элементы массива');

for i: = 1 to n do / / организуем цикл для ввода элементов массива

begin

write ('Введите ', i,'-й элемент ');

readln (mas[i]);

end;

writeln ('четные элементы массива: ');

for i:=1 to n do

if i mod 2 = 0 then writeln (mas[i]); / / проверка условия - равен ли / / нулю остаток от деления номера элемента на 2

end.

Program Three;

const n=10; / / размер массива - при тестировании нужно поочерёдно поменять

var mas:array[1 ... n] of integer;

i:integer;

begin

writeln ('Введите элементы массива');

for i: = 1 to n do / / организуем цикл для ввода элементов массива

begin

write ('Введите ', i,'-й элемент ');

readln (mas[i]);

end;

writeln ('нечётные элементы массива в обр. порядке: ');

for i:=n downto 1 do / / обратный цикл - от n до 1

if i mod 2 = 1 then writeln (mas[i]); / / проверка условия - равен ли / / единице остаток от деления номера элемента на 2

end.