Двумерные массивы

[Кааатя]

помогите пожалуйста решить


1. Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов Два первых элемента задайте с клавиатуры.
2. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен квадрату суммы текущих индексов;
2-й — равен случайному числу;
3-й – равен полусумме двух предыдущих элементов

[Hemul]

Что не получается ? Покажите код.

[Son Of Pain]

Можем на хаскеле написать, раз язык не указываешь. Подходит?

[Кааатя]

на языке паскаль
напишите пожалуйста программу,решение(

[Mad_Cat]

1)

var a:array[1..100,1..100] of Real;
i,j:integer;
n,m:integer;
begin
write('Rows=');
readln(n);
write('Cols=');
readln(m);
for i:=1 to n do
begin
for j:=1  to 2 do begin
write('[',i,',',j,']=');
readln(a[i,j]);
end;
For j:=3 to m do
a[i,j]:=a[i,j-1]+a[i,j-2];
end;
For i:=1 to n do begin
for j := 1 to m do
  write (a[i,j]:8:3);
  writeln;
  end;
readln;
end.

2)

var a:array[1..6,1..3] of Real;
i,j:integer;
begin
Randomize;
for i:=1 to 6 do
begin
j:=1;
a[i,1]:=sqr(i+j);
a[i,2]:=random(18)-9;
a[i,3]:=a[i,1]/2+a[i,2]/2;
For j:=1 to 3 do
write(a[i,j]:8:1);
writeln;
end;
readln;
end.

[Serge_Bliznykov]

в первой задаче лишнее понаписано. нужен одномерный массив, у Вас матрица.
выкинуть одно измерение (и цикл по строкам тоже выкинуть) и получится то, что надо.