Помогите пожалуйста 4. Вычислить среднее арифметическое всех элементов массива A, которые меньше, чем 50. 5. Вычислить произведе
Помогите пожалуйста 4. Вычислить среднее арифметическое всех элементов массива A, которые меньше, чем 50. 5. Вычислить произведение всех чётных положительных элементов массива A. Паскаль
Var 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);
//Pascal //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.