Заполните массив из 10 элементов случайными числами в интервале [0, 100] и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50.​

ответ

Проверено экспертом

ответ дан

Aillianna

Aillianna

1)

var

a1, a2, b1, b2, c, i, n: integer;

s: array [1..100] of integer;

begin

read(n);

for i := 1 to n do

begin

s[i] := random(100);

if s[i] < 50 then

begin

a1 := a1 + s[i];

a2 := a2 + 1;

end;

if s[i] >= 50 then

begin

b1 := b1 + s[i];

b2 := b2 + 1;writeln(a1 / a2:0:3, ' ', b1 / b2:0:3);

import random

N = [random.randint(0, 100) for i in range(10)]

print ("Array is:", N)

sum_less_50 = 0

Count_less_50 = 0

sum_more_50 = 0

Count_more_50 = 0

for elem in N:

   if elem >= 50:

       Count_more_50 += 1

       sum_more_50 += elem

   else:

       Count_less_50 += 1

       sum_less_50 += elem

print("Awerage of nums, that < 50: ", end = "")

if Count_less_50 > 0:

   print(sum_less_50 / Count_less_50)

else:

   print(0)

print("Awerage of nums, that >= 50: ", end= "")

if Count_more_50 > 0:

   print(sum_more_50 / Count_more_50)

else:

   print(0)

схема и объяснение снизу

program ufhcn;

var x, y, a, i, b: real;

uses crt;

begin

clrscr;

writeln('вводи число 1');

readln(i);

writeln('вводи число 2');

readln(x);

if (x> =0) then writeln('все в порядке')

else writeln('не правильная цифра');

if (i> =1) and (i< =13)

then writeln('число входит в ряд', x*i> =a)

else writeln('не входит ряд');

writeln('води число 3');

readln(a);

if (a> =0) then writeln('вводи число 4');

readln(b);

if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));

if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*

end.

начало

вводим переменную i

вводим переменную x

если x> =0 то

если нет если да

то нет. то далее

ввели интервал в переменную i

если (i> =1) и (i< =12) то

если нет. если да

то нет решения. то есть решение

вводим число 3

если (а> =0) то

вводим число 4

если (b> =0) то

y1= a*x*(i*i*i)+b*sqrt(x*i))

если (b< 0) то

y2= ', (sin(x)/cos(x))*(a-(x*

конец

короче объясняю.

ввёл 4 переменных

сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.

ввёл интервал i от 1 до 12

остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь

Sub Swap()

   Dim r As Range, A As Variant

   Dim i As Integer, im As Double, n As Integer, t As Double

   n = 15

   Set r = Range(Cells(1, 1), Cells(1, n))

   A = r

   im = 1

   For i = 2 To n

       If A(1, i) > A(1, im) Then

           im = i

       End If

   Next i

   t = A(1, im)

   A(1, im) = A(1, n)

   A(1, n) = t

   Set r = Range(Cells(2, 1), Cells(2, n))

   r = A

End Sub

На лист в ячейки А1 - О1 заносим исходные 15 чисел

На этот же лист через проект помещаем макрос и запускаем.

Результат будет в ячейках А2 - О2