Сформулировать массив случайных чисел из 10 элементов,принадлежащих интервалу |-5..6|.Вывести на экран элементы меньше 0

Question

Сформулировать массив случайных чисел из 10 элементов,принадлежащих интервалу |-5..6|.Вывести на экран элементы меньше 0

Гость

Ответ(ы) на вопрос:

Гость

Вот скриншоты программы и результатов работы программы:

Accepted Answer

uses crt;const n=10;var a:array[1..n] of integer; i,max,min: integer;begin clrscr;for i := 1 to n do begina[i]:=random(-5,6);write(a[i]:4);end;writeln;for i := 1 to n do beginif a[i]>0 then write(a[i]:4);end;writeln;end.