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

1

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

2014-01-16T18:53:18+00:00
Program cgt;
var a:array[1..6,1..3]of integer;
i,j:integer;
begin
randomize;
for i:=1 to 6 do
begin
for j:=1 to 3 do
begin
if(j=1)then a[i,j]:=random(50);
if(j=2)then a[i,j]:=trunc(sqrt(a[i,j-1]));
if(j=3)then a[i,j]:=a[i,j-1]+a[i,j-2];
write(a[i,j],' ');
end;
writeln;
end;
end.