1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
На картине художника Васильева мы можем видеть пейзаж перед грозой. Это состояние природы само по себе удивительно, ведь именно в этот миг небо окрашивается в темные насыщенные оттенки, а солнечные лучи лёгкой дымкой пробиваются сквозь облака. На картине же это выглядит еще более завораживающе. Удивляет то, как автор мастерски передал настроение. Он использовал множество цветов и оттенков, но при этом он смягчил переход между ними настолько, что зрителю и не заметить границы между его мазками. Васильев поистине сотворил замечательную картину природы, за миг до грозы, когда всё готовится к наступающей буре, а нам остается только смотреть и гадать об уровне мастерства художника..