ПАЦАНЫ Карточка №4.
1) Выведите на экран в строку все числа из первых двухсот кратные числу 10.
2) Найти произведение всех целых чисел от 8 до 15.

Const n = 15; var a: array[1..n]of integer; i,m,min5: integer; f: boolean; begin   for i: =1 to n do begin       write('введите ',i,' член массива ');       readln(a[i]);       if a[i] mod 5=0 then begin           m: =m+1;           if not f then begin               min5: =a[i];               f: = not f;           end;           if (f) and (a[i]< min5) then min5: =a[i];       end;   end;   writeln('кратных 5: ',m: 3,' минимальный: ',min5: 4); end. тестовое решение введите 1 член массива 13 введите 2 член массива 10 введите 3 член массива 15 введите 4 член массива 5 введите 5 член массива 25 введите 6 член массива 23 введите 7 член массива 12 введите 8 член массива 32 введите 9 член массива 11 введите 10 член массива 21 введите 11 член массива 43 введите 12 член массива 15 введите 13 член массива 25 введите 14 член массива 13 введите 15 член массива 14 кратных 5:   6    минимальный:   5