Question

дан целочисленный массив из 12 элементов случайных целых чисел принадлежащих интервалу 10;45 необходимо найти произведение элементов массива, кратных 5

Answer 1

Program z1;  const n = 12;  Var a: array [1..n] of integer; i,s:integer;Begin  randomize;  for i:=1 to n do  begin    a[i]:=random(45)+10;    write (a[i],' ');  end;    s:=1;  for i:=1 to n do    if (a[i] mod 5 = 0) then s:=s*a[i];      writeln;    writeln('Произведение элементов массива, кратных 5 - ',s);End.