Program arrays; var a:array [1..3,1..6] of integer; i,j:byte; begin for i:=1 to 3 do for j:=0 to 1 do begin a[i,1+3*j]:=random(101)+10; a[i,2+3*j]:=random((1001)+100) div (i+2*j); a[i,3+3*j]:=(random(101)+10) mod 10; end; for i:=1 to 3 do begin for j:=1 to 6 do write(a[i,j],' '); writeln; end; end.
Живёт одна лошадь за городом.У неё есть и деньги,и еда,и своё жильё.Читала это лошадка книжки и была самой умной лошадью в посёлке "Копыто".У неё была целая библиотека этих книг!Но слыхала она что есть такой предмет "ноутбук".Всё у лошади было, а ноутбука нет. Пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. Хорошо лошадь жила с ноутбуком,прекрасно! В онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.Услышала она про планшет.Пошла по магазину купила самый модный,самый красивый,самый большой планшет.Тоже был удобен,но ноутбук был по душе.Весь день в покер играла! А с планшетом с папой общалась,фото фотографировала.Но от ноутбука не отказалась! Продала планшет,ненужная вещь.А за эти деньги присоединила себе интернет!И жила лошадь в обнимку с ноутбуком.
var a:array [1..3,1..6] of integer;
i,j:byte;
begin
for i:=1 to 3 do
for j:=0 to 1 do
begin
a[i,1+3*j]:=random(101)+10;
a[i,2+3*j]:=random((1001)+100) div (i+2*j);
a[i,3+3*j]:=(random(101)+10) mod 10;
end;
for i:=1 to 3 do
begin
for j:=1 to 6 do
write(a[i,j],' ');
writeln;
end;
end.
//Если нужны пояснения - пишите