Меню сайта

Задача №47

Заполнить таблицу нулями.

uses crt-

varx,y,xx,yy:integer-

begin-

clrscr-

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(‘0’)-

end-

end-

end.

Категория: Массивы | Дата: 11.12.12

Меню раздела
Блок