Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.