For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;
<span>var a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(50);
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln ('summa=',s);
readln;
end.</span>
Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;
write('N=');
readln(n);
for i:=1 to n do
a[i]:=random(2*n+1)-n;
write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
<span>end.</span>
№9 1-А, 2-Б, 3-В,..., 31-Э, 32-ю, 33-Я
33 2114632 12165101816312030 1015221618141241032.
Если для пробела предусмотреть числовой код, то зашифрованный текст был бы записан без пропусков.
№10
353622140534361800011621002132362036101523161814002510051144360036213140
№11
что? где? когда?
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.