Question

Помогите, пожалуйста

Answer 1

Ответ:

1. 5

2.

program mas_krat15max_zam;

const n=30;

var

max,i:integer;

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

begin

max:=15;

for i:=1 to n do

begin

a[i]:= random(10000)+11;

writeln(a[i]);

if (a[i]>max) and(a[i]mod 15=0) then

max:=a[i];

end;

writeln;

for i:=1 to n do

begin

if (a[i]mod 15=0) then

a[i]:=max;

writeln(a[i]);

end;

end.

В скрине контроль на обозримых данных