Var
i:integer;
a:array[1..11]of integer;
begin
for i:= 1 to 11 do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
write('Кратны 2: ');
for i:=1 to 11 do
if a[i] mod 2=0 then write(a[i],' ');
<span>end. </span>
Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100