составьте программу которая заполняет массив A состоящая из 20 случайных целых чисел в диапазоне от 1 до 30 и выводит на экран элементы значения которых являются чётными и кратными трём
Ответы на вопрос
Ответил nikolac
0
program rand;
var i:integer;
A:array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
begin
A[i]:=random(30,1);
if (A[i] MOD 3=0) and (A[i] MOD 2=0) then
write(A[i],' ');
end;
end.
var i:integer;
A:array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
begin
A[i]:=random(30,1);
if (A[i] MOD 3=0) and (A[i] MOD 2=0) then
write(A[i],' ');
end;
end.
Ответил nikolac
0
Если нужно, чтобы рандомные числа не повторялись, могу немного переделать код.
Новые вопросы
Геометрия,
2 года назад
Алгебра,
2 года назад
Математика,
9 лет назад
Физика,
9 лет назад
Алгебра,
9 лет назад