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