Информатика( 9 класс) помогите срочно, пожалуйста. Даю 15б 1.найти произведение элементов...

Question

Информатика( 9 класс) помогите срочно, пожалуйста. Даю 15б
1.найти произведение элементов массива, состоящее из n элементов, имеющих четное значение. элементы вводятся с помощью генератора случайных чисел.
2.найти среднее арифметическое элементов массива состоящих из 10 чисел, которые превышают число с. Элементы вводятся с клавиатуры.

Comments

var a: array[0..100] of Integer;n,i,sum: Integer;beginsum:=1;writeln('Введите кол-во чисел');readln(n);dec(n);for i:=0 to n dobegina[i]:=random(100);writeln('Число: ',a[i]);end;for i:=0 to n dobeginif odd(a[i])=false then sum:=sum*a[i];end;writeln('Произведение: ',sum);end.

---

Отметь как лучший пж

Answer 1

1. var a: array[1..100] of Integer ;
i,n,p: integer;
begin
p:=1;
Writeln('Введите количество элементов в массиве');
Readln(n);
Writeln('Масив');
for i:=1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
if a[i] mod 2 = 0 then p:=p*a[i];
end;
Writeln;
Writeln('Произведение четных элементов массива = ', p);
end.


2. var a: array[1..10] of Integer ;
i,c,sum,n: integer;
begin
Writeln('Введите число');
Readln(c);
for i:=1 to 10 do
begin
Writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i] > c then
begin
sum:=sum+a[i];
n:=n+1;
end;
end;
Writeln('Среднее арифмитическое элементов массива которые превышают ', c, ' = ',sum/n);
end.