Задача 7 Урок 15
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).
var a : array [1..8] of integer; b : array [1..8] of integer; i,c: integer; procedure arr(qq:integer); var min,max,d: integer; begin randomize(); min:= -5; max:= 5; d:= 1; for i:=low(b) to high(b) do begin b[i] := min + random(max - min + 1); end; for i:= low(b) to high(b) do begin if(b[i]>0) then begin a[d]:=b[i]; d:= d+1; end; end; end; begin arr(c); for i:= low(a) to high(a) do begin write(a[i], ' '); end; readln(); end.
- Log in to post comments
- 2194 reads
vedro-compota
Sun, 10/10/2021 - 12:32
Permalink
форматирование
форматирование
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/10/2021 - 14:23
Permalink
var a : array [1..8] of
vedro-compota
Wed, 10/13/2021 - 20:15
Permalink
вынести генерацию в отдельную
_____________
матфак вгу и остальная классика =)
Djos
Wed, 10/13/2021 - 23:19
Permalink
var a,b : array [1..8] of
vedro-compota
Sun, 10/17/2021 - 12:48
Permalink
глобальные переменные все еще
глобальные переменные все еще используются
_____________
матфак вгу и остальная классика =)
Djos
Sun, 10/17/2021 - 18:33
Permalink
type qq = array[1..8] of