В чём ошибка ?
vari,j,k: integer;b:array[1..9] of integer;
beginrandomize;k:=0;for i:=1to 3 dobeginfor j:=1to 3 dobegina[i,j]:=random(50) ;write (a[i,j],' ');b[k+1]:=a[i,j];k:=k+1;end;for i:=1 to k dowrite(b[i],' ');end.

1

Ответы и объяснения

2014-02-06T07:24:59+04:00