Question

Pascal
Задан массив, состоящий из 16 элементов целого типа. Заменить все элементы, кратные трем, нулями. Определить количество замен

Answer 1

PascalABC.NET:

program x;

uses crt;

var

   arr: array[1..16] of integer;

   i, count: integer;

begin

   for i := 1 to 16 do begin

       write('arr[', i, '] = ');

       readln(arr[i]);

       if (arr[i] mod 3 = 0) and (arr[i] <> 0) then begin

         arr[i] := 0;

         count := count + 1;

       end;

   end;

   writeln('Получившийся массив: ', arr);

   writeln('Количество замен: ', count);

end.