1.
begin
var a:=ReadlnInteger('a =');
var x:=ArrRandom(a,16,28); x.Println;
x:=x.Select(x->odd(x)?46:x).ToArray;
x.Println;
end.

2.
const a=10;
var x:array[1..a] of integer;
i:integer;
begin
Randomize;
for i:=1 to a do begin
x[i]:=random(13)+16;
write(x[i]:3);
end;
writeln;
for i:=1 to a do
if x[i] mod 2<>0 then x[i]:=46;
for i:=1 to a do write(x[i]:3);
writeln;
end.

Пример:
21 20 27 26 17 18 27 23 26 25
46 20 46 26 46 18 46 46 26 46

0 0

4 года назад

Прочитать ещё 2 ответа

Составить блок-схему: 1)y=x^3+1,3x^2 2)y система 0, если X<0-1, если X>0

Овчарка Патрикеевна [8]

Если что непонятно, задавай вопросы

0 0

4 года назад

смысл поговорки "Не торопись отвечать,торопись слушать."

елена 75

Смысл сводится к тому, чтобы человек слушал других и учился на этом, а болтать глупости умеют все.

0 0