Заполните массив из n элементов случайными целыми числами из интервала от a до b включительно, вывести полученный массив, а также массив состоящий из четных элементов
Рассмотрим второе число 6 : у него 0 десятков 0=2^0-1 третье: 16 : один десяток (1) 1=2^1-1 четвёртое: 36 три десятка 3=2^2-1 пятое 76 7=2^3-1 шестое 156 15=2^4 -1
Рассмотрим второе число 6 : у него 0 десятков 0=2^0-1 третье: 16 : один десяток (1) 1=2^1-1 четвёртое: 36 три десятка 3=2^2-1 пятое 76 7=2^3-1 шестое 156 15=2^4 -1
===== PascalABC.NET =====
Var
a,b,i,n : integer;
mass:array of integer;
Begin
Writeln('Введите значения a,b,n');
Readln(a,b,n);
SetLength(mass, n);
for i:=0 to n-1 do
begin
mass[i]:=Random(b-a+1)+a;
write(' ', mass[i]);
end;
writeln('');
for i:=0 to n-1 do
begin
if mass[i] mod 2 = 0 then
write(' ', mass[i]);
end;
End.
Объяснение: