Question

Боже,спасите .Даю 30 баллов
Дан 3х3 массив чисел.Написать программу на языке Паскаль,которая увеличивает каждый элемент массива в 5 раз и выводит их на экран.

Answer 1

Const
N=3;
Var
A:array [1..n, 1..n] of integer;
I, j:integer;
begin
For I:=1 to n do
Begin
For j:=1 to n do
Begin
A[I, j] :=random(51) -25;
Write(a[I, j],' ') ;
A[I, j]:=a[I, j]*5;
End;
Writeln;
End;
Writeln;
For I:=1 to n do
Begin
For j:= 1 to n do
Write(a[I, j],' ') ;
Writeln;
End;
end.