заполните массив из n элементов случайными целыми числами из интервала от a до b включительно, вывести полученный массив, а также массив состоящий из четных элементов
Ответы
Ответ дал:
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.
Объяснение:
Приложения:
![](https://st.uroker.com/files/41d/41deee22bb7268392f3aa6f744affd8a.png)
Вас заинтересует
3 месяца назад
5 месяцев назад
1 год назад
1 год назад
7 лет назад