Задача 7 Урок 15
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).
program lesson15_7; var arr1, arr2: array[1..8] of integer; i, j, max, min: integer; begin randomize(); max := -5; min := 5; j := 1; for i := low(arr1) to high(arr1) do begin arr1[i] := min + random(max - min + 1); if arr1[i] >= 0 then begin arr2[j] := arr1[i]; j := j + 1; end end; for i := low(arr2) to j - 1 do write(arr2[i], ' '); readln(); end.
- Log in to post comments
- 923 reads
vedro-compota
Sun, 08/08/2021 - 11:55
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)