Таблица

[V@mpir]

Здравствуйте! Почему не массив не выводится таблицей, например,
1 2 3 4 5
4 4 5 3 4
6 6 2 1 4

В этом же случаи выводится всё в один столбик или же при write в одну строку...

var a:array [1..5,1..6] of integer;
   i,y:integer;
begin
      randomize;
   for i:= 1 to 5 do
   for y:= 1 to 6 do
    begin
        a[i,y]:=random(10);
   end;
     for i:=1 to 5 do
   for y:=1 to 6 do
   begin
    write (a[i,y]);
    end;
          readln;
 end.

[V@mpir]

var A:array[1..5,1..6] of integer;
i,j:integer;
  begin;
randomize;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random (10);
write(a[i,j],' ');
end;
writeln;

end;
readln;
end.

Извиняюсь первую проблему решил, а вот теперь как в этом массиве заменить первые три столбца на квадрат предыдущих их значений?

[Сергeй]

200 WMR - и забирай.

[val_nnm]

for i:=1 to 3 do
  for j:=1 to 6 do
    a[i,j]:=a[i,j]*a[i,j];

[V@mpir]

Сергей, вы конечно молодец, предприимчивый, но всё таки это форум, на котором люди бесплатно обмениваются опытом и знаниями.

val_nnm, пробовал, в таком случаи олн будет выводит измененный массив уже не 5*6, а 3*6 а нужно размер массива оставить прежнем, лишь заменить столбцы.

\\Тему можно делет, проблема решена...

[val_nnm]

почему это будет выводить 3*6? Этот код будет заменять значения первых трёх столбцов на их квадраты. Остальные значения он не трогает. Т.е. Вы должны вставить мой код после генерации и вывода первоночальной матрици. И после этого кода добавить ещё код вывода матрици (уже изменённой). Покрайней мере если я правильно понял ваше задание.