Заполнить произвольный массив размером N x N (N меньше 10) по следующему правилу: 10000 02000 00300 00020 00001
Заполнить произвольный массив размером N x N (N <10) по следующему правилу:
10000
02000
00300
00020
00001
Гость
Ответ(ы) на вопрос:
ГостьProgram Task;
Const N = 3;
Var a: Array [1..N, 1..N] of Integer;
i, j: Integer;
Begin
For i := 1 To N Do
Begin
If N Mod 2 = 1 Then
Begin
If i <= N Div 2 + 1 Then
a[i, i] := i
Elsea[i, i] := N - i + 1;
End
ElseIf i <= N Div 2 Then
a[i, i] := i
Elsea[i, i] := N - i + 1;
End;
For i := 1 To N Do
Begin
For j := 1 To N Do
Write(a[i, j], ' ');
WriteLn;
End;
ReadLn;
End.
Не нашли ответ?
Похожие вопросы