Помогите пожалуйста : записать чётные положительные элементы целочисленных массивов X и Y в массив Z. поменять минимальный и максимальный элементы массива Z. Вывести элементы массива Z в четверичной системе счисления .
Помогите пожалуйста : записать чётные положительные элементы целочисленных массивов X и Y в массив Z. поменять минимальный и максимальный элементы массива Z. Вывести элементы массива Z в четверичной системе счисления .
Гость
Ответ(ы) на вопрос:
Гость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]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]
Не нашли ответ?
Похожие вопросы