Подсчитать количество отрицательных чисел в массиве из семи элементов. Сделать нужно в Repeat-Until! - Pascal
Формулировка задачи:
Препод задал задачку, подсчитать количество отрицательных чисел в массиве через Repeat-Until. Это вообще возможно? Я кое что набросал, но работает как я понимаю до первого true ( как и должно через Repeat-Until ).
var m:array[1..7]of integer ; i,k : integer; begin i := 1; writeln ('Введите элементы массива'); readln(m[i]); Repeat i:=1+1; if i<0 then inc(k); Until i<0 ; writeln ('количество отрицательных чисел = ' , k ); Readln; End.
Опечатка
8 строка : i :=i+1;
Решение задачи: «Подсчитать количество отрицательных чисел в массиве из семи элементов. Сделать нужно в Repeat-Until!»
textual
Листинг программы
const n = 6; var mass : array[0..n] of ShortInt; i, count : Byte; begin Randomize; for i := 0 to n do begin mass[i] := Random(100) - 50; Writeln('mass[', i+1, ']=', mass[i]); end; i := 0; count := 0; repeat begin if (mass[i] < 0) then Inc(count); Inc(i); end; until (i > n); Writeln; Writeln('Kol-vo otricatelnyh: ', count); Readln; end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве (в данном случае равно 7);
- mass - массив из n элементов типа ShortInt;
- i - индекс текущего элемента массива;
- count - счетчик отрицательных чисел. Далее идет инициализация массива случайными числами от -50 до 50. Затем следует цикл Repeat-Until, который выполняется до тех пор, пока i не станет больше n. Внутри цикла проверяется условие: если текущий элемент массива меньше нуля, то увеличивается счетчик count. После проверки условия, увеличивается значение i на единицу. После завершения цикла выводится количество отрицательных чисел в массиве.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д