Помогите пожалуйста
4. Вычислить среднее арифметическое всех элементов массива
A, которые меньше, чем 50.
5. Вычислить произведение всех чётных положительных элементов
массива A.
Паскаль
4. Вычислить среднее арифметическое всех элементов массива
A, которые меньше, чем 50.
5. Вычислить произведение всех чётных положительных элементов
массива A.
Паскаль
More Questions From This User See All
Answers & Comments
//4)
var
A: array [1..255] of integer;
i, N: byte;
sum, count: integer;
begin
sum := 0; count := 0;
write('Введите количество элементов в массиве: ');
readln(N);
writeln('Заполнение массива.');
for i := 1 to N do
begin
write('A[',i,'] = '); readln(A[i]);
if A[i] < 50 then
begin
sum := sum + A[i];
count := count + 1;
end;
end;
writeln('Среднее арифметическое = ', sum/count);
end.
//5)
var
A: array [1..255] of integer;
i, N: byte;
mult: real;
begin
mult := 1;
write('Введите количество элементов в массиве: ');
readln(N);
writeln('Заполнение массива.');
for i := 1 to N do
begin
write('A[',i,'] = '); readln(A[i]);
if ((A[i] mod 2 = 0) and (A[i] > 0)) then
mult := mult * A[i];
end;
writeln('Произведение четных положительных = ', mult);
end.
i,n,k,j:longint;
a:array[1..100] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(100)-20;
write(a[i]:3);
end;
writeln;
k:=0; // 4 задание
j:=0;
for i:=1 to n do
if a[i]<50
then
begin
k:=k+a[i];
j:=j+1;
end;
writeln(k/j:0:1);
k:=1; // 5 задание
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>0)
then k:=k*a[i];
writeln(k);
readln
end.