В-1 Описать двумерный массив с именем ХХ1, размерностью 7х12, все элементы целого типа XX1:array[1..7,1..12] of integer;

В-2 Описать двумерный массив с именем P, размерностью 5х10, все элементы вещественного типа P:array[1..5,1..10] of real;

В-1 2)Дана матрица А: a)Определите размерность матрицы 3x4 b) Какое значение имеет элемент A 2,3 4 c) Опишите двумерный массив для данной матрицы. A:array[1..3,1..4] of integer;

В-2 2)Дана матрица B: a)Определите размерность матрицы 3x3 b) Какое значение имеет элемент B 1,3 7 c) Опишите двумерный массив для данной матрицы. B:array[1..3,1..3] of integer;

B-1 3) Присвойте элементу массива Y, который находится в 3-й строке и 4-м столбце значение 5,2. Y[3,4]:=5.2;

B-2 3) Присвойте элементу массива Z, который находится во 2-й строке и 3-м столбце значение 7. Z[2,3]:=7;

В-1 4) Заполните двумерный массив L, размерностью 3х3, с клавиатуры: FOR I:=1 TO 3 DO FOR J:=1 TO 3 DO READ(L[I,J]);

В-2 4) Заполните двумерный массив G, размерностью 5х7, случайными значениями из диапазона от 0 до 9: RANDOMIZE; FOR I:=1 TO 5 DO FOR J:=1 TO 7 DO G[I,J]:=RANDOM(10);

Алгоритмы с использованием двумерных массивов

2х2=4 2х3=6 2х4=8 2х5=10 2х6=12 2х7=14 2х8=16 2х9=18 2х10=20 3х2=6 3х3=9 3х4=12 3х5=15 3х6=18 3х7=21 3х8=24 3х9=27 3х10=30 4х2=8 4х3=12 4х4=16 4х5=20 4х6=24 4х7=28 4х8=32 4х9=36 4х10=40 5х2=10 5х3=15 5х4=20 5х5=25 5х6=30 5х7=35 5х8=40 5х9=45 5х10=50 6х2=12 6х3=18 6х4=24 6х5=30 6х6=36 6х7=42 6х8=48 6х9=54 6х10=60 7х2=14 7х3=21 7х4=28 7х5=35 7х6=42 7х7=49 7х8=56 7х9=63 7х10=70 8х2=16 8х3=24 8х4=32 8х5=40 8х6=48 8х7=56 8х8=64 8х9=72 8х10=80 9х2=18 9х3=27 9х4=36 9х5=45 9х6=54 9х7=63 9х8=72 9х9=81 9х10=90

Задание: Сформировать, средствами языка программирования Turbo Pascal, матрицу Пифагора и вывести ее на экран монитора.

Этапы построения программы: 1.Описать двумерный массив A и переменные для индексов I,J. 2.Заполнить массив по формуле A[I,J]:=I*J. 3.Вывести на экран двумерный массив А построчно.

Можно ли оптимизировать алгоритм? Фрагмент программыОптимизированный фрагмент программы for i:=2 to 9 do for j:=2 to 9 do a[i,j]:=i*j; for i:=2 to 9 do begin for j:=2 to 9 do write(a[i,j]:3); writeln; end; for i:=2 to 9 do begin for j:=2 to 9 do begin a[i,j]:=i*j; write(a[i,j]:3); end; writeln; end;