СРОЧНО!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!! Заполнить матрицу a :array[1..5,1..7] of integer так, чтобы на каж
СРОЧНО!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!!
Заполнить матрицу a :array[1..5,1..7] of integer так, чтобы на каждой позиции стояла сумма индексов i и j (т.е. a[i, j] = i + j) , вывести ее на экран.
Создать матрицу a :array[1..M,1..N] of integerзаполнить ее так, чтобы на каждой позиции стояла разность индексов i и j (т.е. a[i, j] = i - j), (СONST M=5 N=9)
Гость
Ответ(ы) на вопрос:
Гость Var
a:array[1..5,1..7] of integer;
i,j:integer;
Begin
for i:= 1 to 5 do
Begin
for j:= 1 to 7 do
Begin
a[i,j]:=i+j;
write(a[i,j],);
End;
Writeln;
End;
End.
2.
Const
m = 5;
n = 9;
Var
a:array[1..m,1..n] of integer;
i,j:integer;
Begin
for i:= 1 to m do
Begin
for j:= 1 to n do
Begin
a[i,j]:=i-j;
write(a[i,j],);
End;
Writeln;
End;
End.
Не нашли ответ?
Похожие вопросы