Во имя радостных мессий, помогите хоть одну задачку. Не шарю( Дан массив из 15 элементов....

Question

Во имя радостных мессий, помогите хоть одну задачку. Не шарю(

Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов массива.

Дан массив из 20 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести все элементы, кратные 5.

Заполнить одномерный массив из n-элементов случайными числами от 0 до 30, вывести элементы на экран, а затем найти и вывести среднее арифметическое всех нечетных элементов. [!] Переменная n вводится с клавиатуры. [!] Всех нечетных элементов - нечетным должен быть индекс [!]

Comments

c++ устроит?

---

ну не знаю, насколько он от паскаля отличается..

---

Если на паскале нужно, то я пас. От c++ сильно отличается.

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.