Const n=10; var a: array[1..n] of integer; p,k: integer; i: byte; begin randomize; p:=1; k:=0; for i:=1 to n do begin a[i]:=random(21); if (a[i]>0) and (a[i] mod 6 =0) then begin p:=p*a[i]; k:=k+1; end; end; println (a); if k>1 then writeln ('Произведение элементов, кратных 6, = ',p) else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p) else writeln ('Нет элементов, кратных 6') end.
Для решения определим 1. Время передачи по высокоскоростному каналу 2. Время передачи по низкоскоростному каналу 3. Время для получения первых 1024 Кб 4. Всё сложим.
var
a: array[1..n] of integer;
p,k: integer;
i: byte;
begin
randomize;
p:=1; k:=0;
for i:=1 to n do begin
a[i]:=random(21);
if (a[i]>0) and (a[i] mod 6 =0) then begin
p:=p*a[i];
k:=k+1;
end;
end;
println (a);
if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)
else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
else writeln ('Нет элементов, кратных 6')
end.
Примеры:
15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6
12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72
14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6