uses crt; var a:array[1..5,1..5] of byte; i,j,s:byte; begin clrscr; randomize; for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin a[i,j]:=random(10); write(' ',a[i,j]); if j=3 then inc(s,a[i,j]); if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1; end end; writeln('сумма элементов 3-го стобца равна ',s); for i:=1 to 5 do begin writeln; for j:=1 to 5 do write(' ',a[i,j]); end end readkey; end. я бы наверно так написал. но для совсем краткости, сделал бы 2 матрицы напротив друг друга и один массив бы всего понадобился =) с пом. gotoxy(i,20+j) ну иль чтот подобного =) Добавлено спустя 2 минуты 52 секунды: у кого паскаль на руках протестите плиз: uses crt; var a:array[1..5,1..5] of byte; i,j,s:byte; begin clrscr; randomize; for i:=1 to 5 do for j:=1 to 5 do begin gotoxy(i,j*2); a[i,j]:=random(10); write(a[i,j]); if j=3 then inc(s,a[i,j]); if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1; gotoxy(i,30+j*2); write(a[i,j]); end writeln('сумма элементов 3-го стобца равна ',s); readkey; end. Добавлено спустя 5 минут 45 секунд: ой наврал с индексацией в gotoxy. наоборот вставьте