Заполнить массив А по следующему принципу:
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 26 27 28
В программе Паскаль)
Помогите пожалуйста
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 26 27 28
В программе Паскаль)
Помогите пожалуйста
Answers & Comments
const g = 4; v = 7;
var a: array[1..g,1..v] of integer;
i,j,x:integer;
begin
x:=1;
writeln('Массив: ');
for i:=1 to g do
begin
for j:=1 to v do
begin
a[i,j]:=x;
x:=x+1;
write(a[i,j]:3)
end;
writeln
end;
end.