Var i,j:integer; a:array[1..12,1..10]of integer; begin writeln ('Исходная таблица: '); for i:=1 to 12 do begin for j:=1 to 10 do begin a[i,j]:=50+random(10); write(a[i,j]:3); end; writeln; end; writeln; for i:=5 to 12 do for j:=1 to 10 do a[i-1,j]:=a[i,j]; for j:=1 to 10 do a[12,j]:=0; writeln ('Измененная таблица: '); for i:=1 to 11 do begin for j:=1 to 10 do write(a[i,j]:3); writeln; end; <span>end.</span>
Данные в компьютерное сети передаются через Паскали ,это позволяет увеличить скорость браузера и избавится от так называемых "рачков"-это вредоносные программы,заполняющие сеть ненужным контентом.
<span>Любознательный малыш
Взял компьютерную мышь</span><span>И кричит:
«Борис, Борис!
Кушай мышку,
Кис-кис-кис!»
Кот из кухни прибежал,
Мышь понюхал и сказал:
«Кушай сам её, глупыш, <span> Мне нужна живая мышь!»
</span></span><span>***
На компьютерную мышку
Виртуальный смотрит кот,
Виртуальными когтями
Изнутри экран скребёт.
Но коту послала мышка
Мэйл:
СОБАКА
ТОЧКА
Р – Р – У -У!
Испугался кот-трусишка
И удрал в свою игру.</span> »
Ультра тонкий дизайн. с 8 ядер процессором. оперативной памятью 16 гиг. full HD или 4k изображения. ПО system of people brain. SPB. система как мозг человека
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D. Алгоритм: 1) Максимальное =A 2) Если B>максимального, то максимальное=B 3) Если C>максимального, то максимальное=C 4) Если D>максимального, то максимальное=D