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

163

467

Посмотреть ответы 2

Ответы на вопрос:

pollvasiltv

Информатика

4,4(51 оценок)

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 . но это на языке паскаль я фиг знает какой тебе нада тут два варианта