составьте программу для ввода с клавиатуры в массив 7 целых чисел и вывода етих чисел в обратном порядке

1

Ответы и объяснения

2012-10-18T18:26:15+00:00

Program n1;
Uses CRT;
Const n=7;
Var a:array[1..n] of integer;
i: integer;
begin
writeln('Vvedite chisla');
For i:=1 to n do
readln(a[i]);
For i:=n downto 1 do
write(a[i]:3);
readln
end.