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