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