Question

вывести на экран 12 элементов массива [5;40] и найти все кратные 3
СРОЧНО!!!​

Answer 1

                                                         

Program v1;

var a:array[1..12]of integer;            

i,n:integer;

begin              

randomize;

for i:=1 to 12 do a[i]:=random(36)+5;                            

write('Значение матрицы: ');                                      

for i:=1 to 12 do write(a[i]:3, ' ');writeln ; writeln('Элементы матрицы кратные 3');                        

       

      for i:=1 to 12 do if a[i] mod 3=0 then  write(a[i]:3, ' ');

        end.