Предмет: Информатика,
автор: agrestadelia
Боже,спасите .Даю 30 баллов
Дан 3х3 массив чисел.Написать программу на языке Паскаль,которая увеличивает каждый элемент массива в 5 раз и выводит их на экран.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: dvadimon
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: дан81
Предмет: Математика,
автор: vvalley999gmailcom
Предмет: Математика,
автор: bolgycev9017