<span>const n=10;
var
i,k,min,max:integer;
x,y:array[1..n]of integer;
z:array[1..2*n]of integer;
function four(n:integer):string;
var s:string;
begin
repeat
s:=s+IntToStr(n mod 4);
n:=n div 4;
until n=0;
result:=ReverseString(s);
end;
begin
for i:=1 to n do
begin
x[i]:=random(-10,10);
y[i]:=random(-10,10);
if (x[i] mod 2=0) and (x[i]>0) then
begin
k:=k+1;
z[k]:=x[i];
if k=1 then
begin
min:=z[1];
max:=z[1];
end;
if z[k]>max then max:=z[k];
if z[k]<min then min:=z[k];
end;
if (y[i] mod 2=0) and (y[i]>0) then
begin
k:=k+1;
z[k]:=y[i];
if k=1 then
begin
min:=z[1];
max:=z[1];
end;
if z[k]>max then max:=z[k];
if z[k]<min then min:=z[k];
end;
end;
write('Массив X:');
for i:=1 to n do write(x[i]:4);
writeln;
write('Массив Y:');
for i:=1 to n do write(y[i]:4);
writeln;
write('Массив Z:');
for i:=1 to k do write(z[i]:4);
writeln;
write('Измененный массив Z:');
for i:=1 to k do
begin
if z[i]=min then z[i]:=max
else
if z[i]=max then z[i]:=min;
write(z[i]:4);
end;
writeln;
write('Массив Z по основанию 4:');
for i:=1 to k do write(four(z[i]):4);
<span>end.</span></span>
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Учитывая первый оператор write(4) и то, что цикл будет выполнен 3 раза, то получим 4864
Вот сайт переводит все и с решением
#include <iostream>
#include <string>
#include <time.h>
using namespace std;
void main()
{
<span> srand(time(NULL));
</span><span> int n,k=0,k1=4;</span><span>
cin >> n;</span><span> //вводишь количество символов
string *s=new string [n];</span><span>
for (int i = 0;i < n;++i)
</span><span> {
</span><span> while (k == k1)</span><span>
{
</span><span> k = rand() % 3;
</span><span> }</span><span>
switch (k)</span><span>
{
</span><span> case 0:s[i] = '0';cout << s[i];break;
</span><span> case 1:s[i] ='1';cout << s[i];break;</span><span> //вместо 0,1,2 пишешь свой алфавит .
case 2:s[i] ='2';cout << s[i];break;</span><span>
}</span><span>
k1 = k;</span><span>
}</span>
<span> system("pause");
</span><span>}</span>