Задача 8 Урок 15
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).
var i,i2: integer; a,b: array [1..8] of integer; procedure randomchis(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 randomchis(a); i2:=0; for i:=low(a) to high(a) do if a[i]>0 then begin i2+=1; b[i2]:=a[i]; end; for i:=low(a) to high(a) do write(a[i], ' '); writeln(); writeln(); for i2:=low(b) to high(b) do write(b[i2], ' '); readln(); end.
Вывод консоли:
0 -1 5 -3 -1 -3 4 2 5 4 2 0 0 0 0 0
- Log in to post comments
- 89 reads