ЗАПОЛНИТЬ МАССИВ С ИЗ 15 ЭЛЕМЕНТОВ СЛЕДУЮЩИМ ОБРАЗОМ: ПЕРВЫЕ ПЯТЬ ЭЛЕМЕНТОВ ВВЕСТИ С КЛАВИАТУРЫ ОСТАЛЬНЫЕ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ ИЗ ИНТЕРВАЛА [-6..6] МАССИВ РАСПЕЧАТАТЬ В СТРОЧКУ НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ КРАТНЫЙ ТРЕМ.
Ответы на вопрос
Ответил firegold268Dimazsz
0
1
2
3
4
5
6
7
8
9
10
11
12
program fpro;
var
a : array[1..10] of integer;
i : integer;
begin
randomize;
for i :=1 to 10 do
begin
a[i] := random(1,20);
if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);
end;
end
Новые вопросы