Массивы.Паскаль

[Шторм]

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

[MOTOCoder]

В первой просто нужно пройти весь массив в цикле downto
По второй:
обращение к элементам матрицы производится так:
matrix[столбец,строка]
то есть, нужно в качестве номера столбца постивить k, а номер строки перебирать в цикле.

[Шторм]

Блин я в паскале вобще не шарю.помогите пожалуйста сделать.я вобще не программист и делаю не себе у меня сестра в больнице просто лежит и я за нее всё делаю т.к ей сдавать потом.одна надежда вы..а то она эту сессию не сдаст потом

[Шторм]

а те проги недароботоные когда решал др.задания на других форумах мне помогали

[MOTOCoder]

Да задачи проще некуда:
1:
[syntax='Delphi']
const
N=10;
var
M:Array[1..N] of integer;
I:Integer;
begin
for I:=10 downto 1 do
write(M,' ');
readln;
end.
[/syntax]

2:
[syntax='Delphi']
const
N=4;
M=10;
var
Matrix:Array[1..N,1..M] of integer;
I,S,P,K:integer;
begin
readln(K);
S:=0;
P:=1;
for I:=1 to M do
begin
S:=S+Matrix[K,I];
P:=P*Matrix[K,I];
end;
writeln('Сумма: ',S);
writeln('Произведение: ',P);
readln;
end.
[/syntax]

Ну только что ввод добавить.

[Шторм]

Блин...большое спасибо MOTOCoder незнаю бы чё без тебя делал

-------------------------------------------------------------
Россия УРААААААААААААА!!!!!!!!!!!!!!!!!!1-0 Грецию

[Шторм]

Первая не работает нули выводит

[Denys]

В первой надо просто сперва проинициализовать масив
for i:= 1 to n
read(m)
а затем их выводить

[MOTOCoder]

В первой надо просто сперва проинициализовать масив
for i:= 1 to n
read(m)
а затем их выводить

И во второй тоже, я же написал, что нужно дописать ввод данных.

[Шторм]

И чё мне это просто в начало добавить?
for i:= 1 to n
read(m)