Вопрос от посетителя
Задание номер 3! ЛАЗАРУС. помогите пожалуйста! Фото с заданием ВНУТРИ!!! Заранее спасибо!
Отвечает Илюха:
var i,j:integer;
a:array[1..6,1..10]of integer;
begin
for i:=1 to 6 do
for j:=1 to 10 do
a[i,j]:=(i-1)*10+j ;
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln
end;
end.