Даны числа n и m. создайте массив a[n][m] и заполните его, как показано на примере. входные данные программа получает на вход два числа n и m. выходные данные программа должна вывести полученный массив. примеры входные данные 4 10 выходные данные 0 1 3 6 10 14 18 22 26 30 2 4 7 11 15 19 23 27 31 34 5 8 12 16 20 24 28 32 35 37 9 13 17 21 25 29 33 36 38 39 pascal

212

376

Посмотреть ответы 2

Ответы на вопрос:

alena10003

Информатика

4,7(8 оценок)

Var mas: array[1..100,1..100] of integer; n,m,d,n2,i,c,j,m2,k: integer; begin n: =0; d: =0; k: =0; write('введите n = '); readln(n); write('введите m = '); readln(m); for i: = 1 to m do begin m2: =1; for n2: =i downto 1 do begin if m2< =n then begin mas[m2,n2]: =k; k: =k+1; m2: =m2+1; end; end; end; //после побочной диагонали for d: =2 to n do begin m2: =d; for n2: =m downto 1 do begin if (m2< =n) and (n2< =m) then begin mas[m2,n2]: =k; k: =k+1; m2: =m2+1; end; end; end; for i: =1 to n do begin writeln(); for j: =1 to m do write(mas[i,j],' '); end; end.