Scania , MAN , КАМАЗ.Schmitz, volvo volkswagen
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(1000);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример<span>889 188 17 186 772
394 121 406 679 936
20 147 868 691 450
525 73 575 232 416
New:
879 188 17 186 772
394 121 396 669 936
20 137 858 691 450
515 73 575 232 416
</span>
АЛГОРИТМ ДОМА:
___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
__¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
___¶_________________________¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶_________________¶__
___¶__¶¶¶¶¶¶_________________¶_
___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
(ЗАКОНЧЕННЫЙ)
ЭТАПЫ:
1)РИСУЕМ КВАДРАТ:
___¶___________________________¶
___¶___________________________¶
___¶___________________________¶
___¶___________________________¶
___¶___________________________¶
___¶___________________________¶
___¶___________________________¶
2) ПРИРИСОВЫВАЕМ ЕМУ КРЫШУ
___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
__¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
___¶_______________________¶
___¶_______________________¶
___¶_______________________¶
___¶_______________________¶
___¶_______________________¶
___¶_______________________¶
___¶_______________________¶
3) РИСУЕМ ЕМУ ОКНА И ДВЕРЬ
___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
__¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
___¶_________________________¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶__¶¶¶¶¶__¶¶¶¶¶___¶
___¶__¶¶¶¶¶¶_________________¶__
___¶__¶¶¶¶¶¶_________________¶_
___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
ГОТОВО!
ТОЖЕ САМОЕ И С 5 ДОМАМИ, ТОЛЬКО НУЖНО СДЕЛАТЬ ИХ МИНИАТЮРНЫМИ И НАРИСОВАТЬ ЛИНИЮ УЛИЦЫ.
УДАЧИ!!!