В данном массиве чисел найдите среднее арифметическое положительных элементов массива. Составить программу для Pascal ABC
Answers & Comments
rustam1509var 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.
Answers & Comments
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.