Паскаль.
Напишите программу, которая запрашивает ввод массива B и выводит на экран его элементы в табличной форме:
1 2 3 4
2 3 4 5
3 4 5 6
Выведите на экран среднее арифметическое элементов массива B.

Предыдущий
вопрос Следующий
вопрос

program ArrayTable;

var B: array[1..3, 1..4] of Integer;
i, j: Integer;
sum: Integer;

begin
sum := 0;

for i := 1 to 3 do
begin
for j := 1 to 4 do
begin
Write('Enter element B[', i, ',', j, ']: ');
Readln(B[i, j]);
sum := sum + B[i, j];
end;
end;

for i := 1 to 3 do
begin
for j := 1 to 4 do
begin
Write(B[i, j], ' ');
end;
Writeln;
end;

Writeln('Average: ', sum / 12);
end.

Пример ввода:
Enter element B[1,1]: 1
Enter element B[1,2]: 2
Enter element B[1,3]: 3
Enter element B[1,4]: 4
Enter element B[2,1]: 2
Enter element B[2,2]: 3
Enter element B[2,3]: 4
Enter element B[2,4]: 5
Enter element B[3,1]: 3
Enter element B[3,2]: 4
Enter element B[3,3]: 5
Enter element B[3,4]: 6

Пример вывода:
1 2 3 4
2 3 4 5
3 4 5 6
Average: 3.5