Напишите программу формирования и вывода массива размером 6*3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й ― равен квадрату суммы текущих индексов, увеличенному на 5
2-й — равен целой части квадратного корня из предыдущего элемента;
3-й ― равен целой части частного от деления двух предыдущих элемента.
1-й ― равен квадрату суммы текущих индексов, увеличенному на 5
2-й — равен целой части квадратного корня из предыдущего элемента;
3-й ― равен целой части частного от деления двух предыдущих элемента.
Answers & Comments
var a:array[1..100,1..100] of Real;i,j:integer;n,m:integer;beginwrite('Rows=');readln(n);write('Cols=');readln(m);for i:=1 to n dobeginfor j:=1 to 2 do beginwrite('[',i,',',j,']=');readln(a[i,j]);end;For j:=3 to m doa[i,j]:=a[i,j-1]+a[i,j-2];end;For i:=1 to n do beginfor j := 1 to m dowrite (a[i,j]:8:3);writeln;end;readln;end.
2)
var a:array[1..6,1..3] of Real;i,j:integer;beginRandomize;for i:=1 to 6 dobeginj:=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 dowrite(a[i,j]:8:1);writeln;end;readln;end.
Но это на языке паскаль я фиг знает какой тебе нада тут два варианта