Відповідь:
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.
Пояснення:
Здається так, давно не писав нічого на цій мові
Поделитесь своими знаниями, ответьте на вопрос:
Ученик за четверть получил 10 пятерок, 5 четверок, 5 троек. рассчитайте вероятность получения каждой оценки и сделаете вывод о количестве информации, которую можно получить при получении сообщения о каждой оценке.