Решение № 5 из главы 15.Заполнить массив (длиной 8 элементов) случайными значениями ,выделите из него все неотрицательные числ
Primary tabs
Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5, выделите из него все неотрицательные числа во второй массив и выведете его на экран (если таких чисел меньше чем, его длина, то выведете только их, не обходя незаполненные ячейки)
program pascal_array5; type // Секция обьявления переменных a = array[1..8] of integer; b = array[1..8] of integer; var arr : a; newarr : b; n,i,j,min,max,count : integer; begin // начало тела программы j := 0; count := 0; randomize(); // вызов стандартной процедуры иницилиз. случайными чисел min := -5; // левая граница max := 5; // правая граница for i:=low(arr) to high(arr) do // обходим массив и иницилизируем случ.числами begin arr[i] := min + random(max - min + 1); end; { обходим массив, извлекаем из него отриц.числа и добавляем в другой массив } for i:=low(arr) to high(arr) do begin if( arr[i] ) < 0 then // если отрицательное число begin j += 1; newarr[j] := arr[i]; // иницилизируем новый массив count += 1; // счетчик элементов нового массива write( newarr[j] ,' ' ); // просто вывод для проверки end; end; writeln(); // перенос for j := 1 to count do // обходим новый массив до счетчика Write(newarr[j] ,' ' ); // выводим элементы нового массива end. // завершение тела программы
- Log in to post comments
- 1259 reads
vedro-compota
Wed, 05/27/2020 - 19:45
Permalink
j += 1;то же самое что:
то же самое что:
_____________
матфак вгу и остальная классика =)