Сформировать массив из 15 случайных чисел, принадлежащих промежутку [-30, 30]. Найдите и...

Question

Сформировать массив из 15 случайных чисел, принадлежащих промежутку [-30, 30]. Найдите и выведите на экран номера, значения и количество элементов, по модулю не превышающих 5. Если таких элементов нет, то вывести соответствующее сообщение.

Answer 1

Const Sz = 100; // Размер массива

var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;

begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.