составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых
10-11 класс
|
являются четными и кратными 3
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(30)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');
readln;
end.
Другие вопросы из категории
700 Мб)если там уже записано файлов на 5Мб? Привести расчет
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Читайте также
которых больше 5 и меньше 15
нечетными значениями
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу
и произведение элементов с нечетными значениями
и количество элементов с нечетными значениями.