Задача 7 урок 15
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).
Var i: integer; a,b: array [1..8] of integer; procedure pervii(var a: array of integer); var min, max: integer; begin randomize(); min:=-5; max:=5; for i:=low(a) to high(a) do a[i]:=min+random(max-min+1); end; begin pervii(a); for i:=low(a) to high(a) do if a[i]>0 then b[i]:=a[i]; for i:=low(b) to high(b) do if b[i]>0 then write(b[i],' '); readln(); end.
- Log in to post comments
- 471 reads