В данном массиве чисел найдите среднее арифметическое положительных элементов массива.
Составить программу для Pascal ABC
Ответы
Ответ дал:
0
var
arr : array[1..99] of integer;
N, s, k : integer;
begin
read(N);
for var i := 1 to N do begin
arr[i] := random(-10, 10);
writeln(arr[i]);
if arr[i] > 0 then begin
s += arr[i];
k += 1;
end
end;
writeln(s/k);
end.
arr : array[1..99] of integer;
N, s, k : integer;
begin
read(N);
for var i := 1 to N do begin
arr[i] := random(-10, 10);
writeln(arr[i]);
if arr[i] > 0 then begin
s += arr[i];
k += 1;
end
end;
writeln(s/k);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад