Сделатьвсе элементы таблицы равными заданному числу.
uses crt-
varx,y,xx,yy,a:integer-
begin-
clrscr-
writeln(‘Введите число’)-
readln(a)-
writeln(‘Введите размер таблицы x и y через Enter’)-
readln(x)-
readln(y)-
clrscr-
FOR xx := 1 TO x do
begin
FOR yy := 1 TO y do
begin
gotoxy(yy, xx)-writeln(a)-
end-
end-
end.