Question

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

Answer 1

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.