Question

Заполнить массив остатками от деления натуральных чисел из отрезка [100; 110] на 19 и вывести на экран все элементы, по порядку до кратного трем.

Answer 1

Program zadanie;
var i, j: integer;
     A: array[0..10] of integer;
begin
   i := 0;
    for j := 100 to 110 do
    begin
      A[i] := j mod 19;
      i := i + 1;
    end;
    
  for i := 0 to 10 do
    if (A[i] mod 3 = 0) then
      break
    else
      writeln('A[', i,'] = ', A[i]);
end.

983d60db68ab2855689028e6062f308e.pas

Answer 2

В приложении программа в файле

Answer 3

Если есть вопросы или что-то не так, пиши