Получить действительную квадратную матрицу по правилу

@Dunch · Регистрация: 24.12.2013

Студворк — интернет-сервис помощи студентам

Из одномерного массива [Xi] i=1,64 получить действительную квадратную матрицу 8*8, элементами которой являются числа х 1,... ,х 64 расположенные в ней по схеме

@Don_Omare · 24.12.2013, 16:29

Pascal

program doit;
 
uses crt;
var
 A: array [1..64] of integer;
 i,q,j: byte;
 Begin
  Textcolor (12);
  
  writeln('Исходные числа ');
   For i:=1 to 64 do
     Begin
       A[i]:=random(15);
       Write(A[i]:4);
     End;
  Writeln;
  Textcolor (10);
  writeln('Матрица ');
  For j:=1 to 8 do
   begin
   For i:=1 to 8 do
    Begin
    q:=q+1;
    write(A[q]:3);
    End;
    writeln;
   End;
  End.

@Dunch 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 8
		1
	Получить действительную квадратную матрицу по правилу 24.12.2013, 16:14. Показов 1046. Ответов 1 Метки нет (Все метки) Из одномерного массива [Xi] i=1,64 получить действительную квадратную матрицу 8*8, элементами которой являются числа х 1,... ,х 64 расположенные в ней по схеме 0

Опции темы

Получить действительную квадратную матрицу по правилу

Решение