Pascal/Массивы

[ромка)]

1)Одномерный:Дан массив размера N. Вывести его элементы в обратном порядке
2)Двумерный:Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы
Помогите пожалуйста.

[Xardas]

И как думаем решать?

[Makarov]

Первая.

program f1;
uses crt;
const n=10;
var
  ar:array[1..n] of word;
  i,nom,min:word;
begin
  clrscr;
  randomize;
  for i:=1 to n do
  begin
    writeln('vvedite chislo ',i);
    readln(ar[i]);
  end;
  writeln;
  for i:=n downto 1 do
   write(ar[i],' ');
  readln;
end.

[Spiker01]

1 задача . У меня на месте n число 10, пробывал n"переменную" получается билиберда .

 Program Massiv;
var
d:array[1..100] of real;
i:integer;
s,n:real;
begin
for i:=1 to 10 do
begin
writeln('Vvedite massiv N',i);
readln(d[i]);
if i>=10 then  begin
writeln('Otvet',d[10]);
writeln(d[9]);
writeln(d[8]);
writeln(d[7]);
writeln(d[6]);
writeln(d[5]);
writeln(d[4]);
writeln(d[3]);
writeln(d[2]);
writeln(d[1]);
end;end;
readln;
end.
readln;
end.

[Карась]

Spiker01, это чтото ужасное вы написали

[Makarov]

По-моему Spiker01 немного перезанимался Паскалем. Там в программе даже два end с точками. Новый подход.

[Spiker01]

Я не обращал внимания , чем больше енд тем меньше ошибок) выводит компилятор .