Вывести на экран все натуральные числа делящиеся на 3 без остатка

Var mas : array [1..100000] of longint; i,n : longint; begin   read(n);   for i: =1 to n do begin     read mas[i];   end.   for i: =1 to n do begin       if mas[i] mod 3=0 then write (mas[i],' ');   end; end.

ответ:

всё напишу в объяснении.

объяснение:

1) program ex1;

var

  n, a, i, sum : integer;

begin

  sum : = 0; // обнуляем счетчик суммирования

  read(n);   // вводим кол-во чисел

  for i : = 0 to n do

    begin

    read(a); // считываем эти числа

    if (a mod 5 = 0) then sum : = sum + a; // если число кратно 5, то добавляем его к сумме

    end;

  writeln(sum); // выводим сумму.

end.

2) program ex2;

var

  n, a, i, min: integer;

begin

  min : = 3;

  read(n);   // вводим кол-во чисел

  for i : = 0 to n do

    begin

    read(a); // считываем эти числа

    if ((a mod 10 = 4) and (a < min)) then min : = a; // ищем минимум

    end;

  writeln(min); // выводим минимум

end.

1)

var

a: array[1..10,1..10] of integer;

i,j: integer;

begin

randomize;

 

  for j: =1 to 10 do

  for i: =1 to 10 do

a[i,j]: =random(51);

for i: =1 to 10 do

write(a[i,4);

end.

2)

var

n,max,i: integer;

 

  a: array[1..n] of integer;

begin

max: =0;

 

  read(n);

for i: =1 to n do

read(a[i]);

for i: =1 to n do

if a[i]> max then max: =a[i];

write(max);

end.