Ответы
Ответ дал:
0
var
g: real;
k: integer;
n: byte := 9;
a: array of real := (-2, 4, 8, 0, 5, 0, 3.6, 6.1, 55);
begin
for i: byte := 1 to n do
begin
if (a[i - 1] = 0) then continue;
g += a[i - 1];
k += 1;
end;
writeln(g / k);
end.
g: real;
k: integer;
n: byte := 9;
a: array of real := (-2, 4, 8, 0, 5, 0, 3.6, 6.1, 55);
begin
for i: byte := 1 to n do
begin
if (a[i - 1] = 0) then continue;
g += a[i - 1];
k += 1;
end;
writeln(g / k);
end.
Ответ дал:
0
вот теперь спасибо, а можешь блок схему составить к этой программе, пожалуйста.
Ответ дал:
0
Не представляю, как в неё можно было бы массив написать
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад