Question

Во имя радостных мессий, хоть одну . не шарю( дан массив из 15 элементов. необходимо заполнить его с оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов массива. дан массив из 20 элементов. необходимо заполнить его с оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести все элементы, кратные 5. заполнить одномерный массив из n-элементов случайными числами от 0 до 30, вывести элементы на экран, а затем найти и вывести среднее арифметическое всех нечетных элементов. [! ] переменная n вводится с клавиатуры. [! ] всех нечетных элементов - нечетным должен быть индекс [! ]

Answer 1

Const
   N = 15;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
WriteLn('P = ',P);
End.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
    if A[i] mod 5 = 0 then Write(' ',A[i])
End.

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(31);
    Write(' ',A[i]);
    if i mod 2 <> 0 then S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.