Дан целочисленный массив, заданный датчиком случайных чисел в интервале -10 до 10. Найти среднее арифметическое положительных элементов массива
Pascal
Через Var решать)
Ответы
Ответ дал:
0
Ответ:
program z1;
var a:array [1..10] of integer;
i,s,k:integer;
begin
s:=0;
k:=0;
write ('Массив ');
for i:= 1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then
begin
s:=s+a[i];
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных элементов ',s/k)
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
1 год назад
7 лет назад