Question

Написать программу в Паскале.
Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18;15].Выведите значения элементов массива сначала в столбик,а затем в строку,причем на каждый элемент отведите 4 позиции.
Задача: Заменить элементы массива,которые кратны пяти,на значение максимального элемента массива.

Answer 1

const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin     
    for i:=1 to n do       
      begin             
          a[i]:=random(4)+15;           
          writeln(a[i]);         
      end;     
writeln;   
     for i:=1 to n do         
         write(a[i]:4);         
              writeln;     
     i_max:=1;     
         for i:=2 to n do         
           if a[i]>a[i_max]then           
              i_max:=i;     
         for i:=1 to n do       
             if a[i]mod 5=0 then           
                 a[i]:=a[i_max];     
        for i:=1 to n do       
           write(a[i]:4);
            end.