Question

вычислить количество нечетных чисел которые делятся на 3 (программа+блок-схема, ну или хотя б прога)

Answer 1

var

 A: array [1..40] of Integer;

 i, c: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных чисел:');

   for i := 1 to 40 do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   c := 0;

   for i := 1 to 40 do begin

     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);

   end;

   Writeln;

   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.