Урок 15. Задача 7.
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные ячейки).
type ar = array[1..8] of integer; var i : integer; Arr, Arr_2 : ar; begin randomize; for i := 1 to 8 do // инициализация Arr[i] := random(10) -5; for i := 1 to 8 do if Arr[i] > 0 then // положительные элементы массива Arr_2[i] := Arr[i]; for i := 1 to high(Arr_2) do // вывод массива write(Arr_2[i], ' '); readln(); end.
- Log in to post comments
- 1488 reads
vedro-compota
Sat, 06/25/2022 - 20:37
Permalink
1)
1)
-- нужны неотрицательные
2)
-- выводить только реально сохраненные числа, без "хвоста"
_____________
матфак вгу и остальная классика =)
Dennis80
Wed, 06/29/2022 - 09:30
Permalink
Задача 7 - Исправил
vedro-compota
Wed, 06/29/2022 - 20:15
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)