Question

помогите пожалуйста паскаль
1)
Дан целочисленный двумерный массив, размерности n х m, при
n=4; m=8. Заменить все элементы на их квадраты.
2)
Дан целочисленный двумерный массив, размерности n х m, при
n=6; m=5. Заменить все элементы на их противоположные значения.

Answer 1

Ответ:

Объяснение:

1) Var

m: array [1..10, 1..10] of integer;

i,j,c:integer;

Begin

For i:=1 to 4 do

For j:=1 to 8 do

read(m[i,j]);

For i:=1 to 4 do

For j:=1 to 8 do

Begin

m[i,j]:=m[i,j]*m[i,j];

end;

For i:=1 to 4 do

Begin

For j:=1 to 8 do

write(m[i,j],' ');

writeln

end;

end.

2)Var

m: array [1..10, 1..10] of integer;

i,j,c:integer;

Begin

For i:=1 to 6 do

For j:=1 to 5 do

read(m[i,j]);

For i:=1 to 6 do

For j:=1 to 5 do

Begin

m[i,j]:=-1*m[i,j];

end;

For i:=1 to 6 do

Begin

For j:=1 to 5 do

write(m[i,j],' ');

writeln

end;

end.