Дан массив из 10 элементов. составить программу, находящую среднее арифметическое положительных.
Ответы
Ответ дал:
2
program mass;
uses crt;
var massiv:array[1..10] of integer;
i,count:integer;
sra:real;
begin
for i:=0 to 10 do begin
readln(massiv[i]);
if massiv[i] > 0 then begin
count:= count+1;
sra:= sra + massiv[i];
end;
end;
sra:= sra/count;
writeln('Среднее арифметическое = ',sra);
end.
uses crt;
var massiv:array[1..10] of integer;
i,count:integer;
sra:real;
begin
for i:=0 to 10 do begin
readln(massiv[i]);
if massiv[i] > 0 then begin
count:= count+1;
sra:= sra + massiv[i];
end;
end;
sra:= sra/count;
writeln('Среднее арифметическое = ',sra);
end.
Аноним:
извините,что такое "sra" ?
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад