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