Люди!!! Помогите пожалуйста решить задачу. Я ни чего в Паскале не понимаю, пожалуйста, очень к завтра нужно, Помогите
А. Создайте программу, которая заполняет массив 6х12 числами по следующему правилу:
1 2 3 4 5 6 7 8 9 10 11 12
2 4 6 8 10 12 14 16 18 20 22 24
3 6 9 12 15 18 21 24 24 30 33 36
5 10 15 20 25 30 35 40 45 50 55 60
6 12 18 24 30 36 42 48 54 60 66 72
Каждый элемент равен произведению индексов.
Б. Выведите созданный массив на экран.


Помогите
Автор Леп икон, 10 апр 2009 10:22
В теме одно сообщение
#2
Отправлено 11 декабря 2009 - 17:23
Program Matrix; uses CRT; const a:array[1..12] of integer=(1,2,3,4,5,6,7,8,9,10,11,12); var i,j,index:integer; begin ClrScr(); for j:=1 to 5 do begin inc(index,1); for i:=1 to 12 do begin write(a[i]*index,' '); delay(156); end; if (a[i]=12) then begin writeln; writeln; end; if (index=3) then index:=4; end; Readln(); end.
Ответить

Количество пользователей, читающих эту тему: 1
0 пользователей, 1 гостей, 0 анононимных