Дополнить код! - Pascal ABC

Формулировка задачи:

Не разбираюсь как
i:=2;
while i<=n do begin
for j:=1 to m do
a[i,j]:=x[j];
inc(i,2);
end;

Код к задаче: «Дополнить код! - Pascal ABC»

textual
const n=5;
      m=6;
var a:array[1..5,1..6] of integer;
    x:array[1..m] of integer;
    i,j:integer;
begin
randomize;
writeln('Массив X');
for i:=1 to m do
 begin
  x[i]:=random(10);
  write(x[i]:4);
 end;
writeln;
i:=2;
while i<=n do
 begin
  for j:=1 to m do
  a[i,j]:=x[j];
  inc(i,2);
 end;
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.867 из 5


СДЕЛАЙТЕ РЕПОСТ