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 ответа

Помогите пожалуйста решить задачу ПЛИЗ СРОЧНО ДАМ 30 БАЛОВ В трех седьмых классах 70 ребят. Из них 27 занимаются в драм кружке,

Игорь234

10 человек ничем не заняты,
11 занимаются только спортом

0 0

4 года назад

Помогите!! Даю 25 баллов! Информатика!

ЛюбовьПОМОГИТЕ

* обозначается любое кол-во символов, ?-один любой символ

0 0

4 года назад