Меню сайта

Задача №46

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

uses crt-

var i,x,y:integer-

— — — a:array[1..25] of integer-

begin

clrscr-

FOR i := 1 TO 25 do

begin

a[i] :=round(random(10))-

end-

FOR x := 1 TO 5 do

begin

FOR y := 1 TO 5 do

begin

gotoxy(x+5,y)-writeln(a[x * y])-

end-

end-

end.

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

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