<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
else begin
Write('Номера нечетных элементов, кратных 7: ');
aInd.Select(i->i+1).Println(',')
end
end.
<u>Пример</u>
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9
Const
K = 7;
Var
A:array[1..K] of integer;
i,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(1001);
Write(A[i],' ');
End;
WriteLn;
n:=1;
For i:= 2 to K-1 do
if A[i]*A[i+1]>A[n]*A[n+1] then n:=i;
WriteLn(n,' и ',n+1)
End.
Можно заменить на
read(x1,y2,x3,x4);
const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.