Найти произведение четных элементов массива - Pascal ABC (14093)

Формулировка задачи:

Прошу помочь мне сделать задачи. Братишке надо. Зависит судьба оценки в полугодии. 1. Найти произведение четных элементов массива. 2. Увеличить все элементы элементов массива с четными порядковыми номерами на 7. Вывести исходный и полученный массив на экран. 3. Заполнить массив случайными целыми числами из [-15;24] и найти минимальный элемент массива.

Код к задаче: «Найти произведение четных элементов массива - Pascal ABC (14093)»

textual
Uses crt;
Const n=10;
Var A : array [1..n] of integer;
    i, d, min : integer;
begin clrscr;
Randomize;
For i:=1 to n do A[i]:=random(10);
Writeln('Task 1');
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
D:=1;
For i:=1 to n do
    begin
    If ((A[i] mod 2)=0) then D:=D*A[i];
    end;
Writeln('D=', D);
Writeln('Task 2');
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
For i:=1 to n do
    begin
    if ((i mod 2)=0) then A[i]:=A[i]+7;
    end;
Writeln;
Writeln('New array A:');
For i:=1 to n do Write(A[i]:4);
Writeln('Task 3');
For i:=1 to n do A[i]:=random(25)-random(16);
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
min:=A[1];
For i:=2 to n do
    begin
    If (A[i]<min) then min:=A[i];
    end;
Writeln('min=', min);
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ