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

1

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

Лучший Ответ!
2013-11-29T03:32:26+00:00
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.
Но это на языке паскаль я фиг знает какой тебе нада тут два варианта