Question

Паскаль! RestIess help )))
Заполнить массив целыми случайными числами, найти значение и номер максимального некратного 4. Если таких нет - вывести сообщение.

Answer 1

program fives;

CONST N = 10;

var

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

i,imax4,imax4z : integer;

begin

Randomize;

imax4 := 1;

imax4z := a[1];

   for i := 1 to N do  

   begin

   a[i] := random(100) + 1;

   writeln(a[i]);

   end;

 for i := 1 to N do

 begin

   if (a[i] mod 4 <> 0) and (a[i]>imax4z) then

   begin

   imax4z := a[i];

   imax4:= i;

   end;

 end;

 writeln('Max:',imax4z);

 writeln('Index: ',imax4);

end.