Дана последовательность из N произвольных целых чисел. Написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 7 (Использовать все три вида цикла For, While, Repeat)

Program SomeProgram; var a : array[0 ... 3] of Integer = (1,7,-7,-14) ; i : integer; count : integer = 0; begin

/ / с помощью for in, возможно вам нужно с помощью обычного for for i in a do begin if ((i div 7) < 0) then begin count : = count + 1; end; end; writeln (' (for) количество подходящих чисел: ', count) ; / / с помощью while i : = 0; count : = 0; while (i < length (a)) do begin if ((a[i] div 7) < 0) then begin count : = count + 1; end; i : = i + 1; end; writeln (' (while) количество подходящих чисел: ', count) ; / / с помощью repeat until / / тут главное правльно поставить условие после until i : = 0; count : = 0; repeat if ((a[i] div 7) < 0) then begin count : = count + 1; end; i : = i + 1; until i = length (a) ; writeln (' (repeat until) количество подходящих чисел: ', count) ; end.