| Код |
const n=20;
var
arr: array[1..n] of integer;
i, j, i1,i3,i6: byte;
mult: integer;
begin
randomize;
for i:=1 to n do begin
arr[i] := random(50) - 25; // диапазон [-25;24]
write(arr[i]:4);
end; writeln;
i1 := 0; // индексы соответствующих полож. элементов
i3 := 0;
i6 := 0;
j := 0; // индекс очередного положительного элемента
for i:=1 to n do begin
if arr[i] > 0 then begin
j := j + 1;
if j = 1 then i1 := i
else
if j = 3 then i3 := i
else
if j = 6 then begin i6 := i; break end;
end;
end;
if (i1<>0) and (i3<>0) and (i6<>0) then begin
mult := arr[i1] * arr[i3] * arr[i6];
writeln('ID elements: ',i1,' ',i3,' ',i6);
writeln('Mult: ', mult);
end;
end.
|
|