Заполнить массив размерностью 10х10 по заданной схеме

@MikhailP · Регистрация: 11.11.2017

Студворк — интернет-сервис помощи студентам

Заполнить массив размерностью 10х10 следующим образом:

1	2	3	4	5	6	7	8	9	10
11	12	13	14	15	16	17	18	19	20
21	22	23	24	25	1	2	3	4	5
6	7	8	9	10	11	12	13	14	15
16	17	18	19	20	21	22	23	24	25
1	2	3	4	5	6	7	8	9	10
11	12	13	14	15	16	17	18	19	20
21	22	23	24	25	1	2	3	4	5
6	7	8	9	10	11	12	13	14	15
16	17	18	19	20	21	22	23	24	25

@Hitoku · 07.03.2018, 09:28

Pascal

const n = 10;
var a: array[1..n, 1..n] of integer;
    i, j, x: integer;
begin
  x := 1;
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := x;
      write(a[i, j]:3);
      if x = 25 then x := 1 else inc(x);
    end;
    writeln;
  end;
end.

	07.03.2018, 09:28

Опции темы

Заполнить массив размерностью 10х10 по заданной схеме

Решение