Даю 50 баллов. 1) Задать массив, состоящий из 15 элементов;
2) Ввести массив с помощью функции рандом из заданного интервала (см. в таблицу);
3) Вывести массив в строчку;
4) Вывести в строчку все четные элементы этого массива.
Диапазон для рандома:[-3;18]
2) Ввести массив с помощью функции рандом из заданного интервала (см. в таблицу);
3) Вывести массив в строчку;
4) Вывести в строчку все четные элементы этого массива.
Диапазон для рандома:[-3;18]
Answers & Comments
const n=15;
var a:array [1..n] of integer;
i,k:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(22)-3;
write(a[i],' ')
end;
writeln;
write ('Четные элементы: ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i],' ')
end.