Скласти програму обчислення середнього арифметичного додатних чисел масиву c, який складається з 8 цілих чисел.
Ответы
Ответ дал:
1
Відповідь:
program Pr1;
var
a: array[1..10] of integer;
i,k,n,s: integer;
sr: real;
begin
Randomize;
k := 0;
s := 0;
for i := 1 to 10 do
begin{формирование массива}
a[i] := random(41) - 20;
write(a[i]:5);
if a[i] > 0 then
begin
S := S + A[i];
n := n + 1;
end;
if abs(a[i]) mod 10 = 7 then
k := k + 1;
end;
writeln;
WRITELN('Количество элементов на 8: ', k);
if n<>0 then
begin
SR := S / N;
WRITELN('Среднее: ', SR);
end
else
writeln('Нет отрицательных чисел.');
end.
Пояснення:
Здається так, давно не писав нічого на цій мові
viktoriavoloshina567:
спасибо большое, но мне надо на языке Object Pascal))
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад