Предмет: Информатика,
автор: shevik95
дан двумерный массив B[4,4] из целых чисел в интервале от -20 до 50.
1.распечатать.
2. переставить 2 и 3 строки.
3. подсчитать в каждой строке количество положительных элементов
4.найти сумму в 3 столбце.
Ответы
Автор ответа:
0
program abc;
const arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var i, j: integer;
begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
write(arr[i][j], ' ');
end;
writeln();
end;
writeln();
for i := 1 to 4 do
begin
j := arr[2][i];
arr[2][i] := arr[3][i];
arr[3][i] := j;
end;
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
write(arr[i][j], ' ');
end;
writeln();
end;
end.
const arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var i, j: integer;
begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
write(arr[i][j], ' ');
end;
writeln();
end;
writeln();
for i := 1 to 4 do
begin
j := arr[2][i];
arr[2][i] := arr[3][i];
arr[3][i] := j;
end;
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
write(arr[i][j], ' ');
end;
writeln();
end;
end.
Похожие вопросы
Предмет: Геометрия,
автор: vadim65412
Предмет: Русский язык,
автор: lenusik81
Предмет: Математика,
автор: zazicom9hh
Предмет: История,
автор: мыльныйпузырик