Напишите программу вычисления среднего арифметического трёх целых случайных чисел, принадлежащих промежутку [0;10). Предусмотрите вывод на экран случайных чисел, сгенерированных компьютером

👇

Увидеть ответ

Ответ:

72737

31.08.2021

на Python

from random import randint

r_list = []

sum_list = 0

for i in range(3):

r_list.append(randint(0, 10))

sum_list += r_list[i]

print(*r_list)

print(sum_list / len(r_list))

Объяснение:

4,7(18 оценок)

Открыть все ответы

Ответ:

таисия85

31.08.2021

Program Massiv;

Uses Crt;

const n=10 {размер массива}

var i,k:integer;

a:array[1..n] of integer;

begin

clrscr;

write('Введите элементы массива:' );

k:=1

for i:=1 to n do

begin

readln (a[i]);

if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

end;

writeln;

write('Исходный массив:')

for i:=1 to n do write(a[i]:3);

writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

readkey;

end.

4,4(63 оценок)

Ответ:

TOFeFE

31.08.2021

Задание №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
b: array of real;
i, n,pn: integer;
ps,op,min:real;
begin
write('Количество элементов массива :');readln(n);
SetLength(b, n); // задаем длину массива
min:=MaxReal; op:=1;
writeln('Исходный массив:');
for i:=0 to n-1 do begin
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(b[i]);
    until (b[i]<=5) and (b[i]>=-20);
    if (b[i]>0) and (round(b[i]/2)*2=b[i]) then begin
      ps +=b[i];pn+=1;
      end
    else if b[i]<0 then op *=b[i];
    if b[i]<min then min:=b[i];
end;
writeln;
writeln('сумма положительных и четных элементов массива :',ps:0:3);
writeln('Среднее положительных и четных элементов массива :',ps/pn:0:3);
writeln('Произведение отрицательных элементов массива :',op:0:3);
writeln('Минимальный элемент массива :',min);
writeln('Отсортированный массив по убыванию :');
b.sorteddescending.println;
end.

Тестовое решение:
Количество элементов массива :8
Исходный массив:
Введите 1 число из 8 : -18.5
Введите 2 число из 8 : 3.4
Введите 3 число из 8 : 4
Введите 4 число из 8 : -12
Введите 5 число из 8 : 2.2
Введите 6 число из 8 : -6.3
Введите 7 число из 8 : 2
Введите 8 число из 8 : 5

сумма положительных и четных элементов массива :6.000
Среднее положительных и четных элементов массива :3.000
Произведение отрицательных элементов массива :-1398.600
Минимальный элемент массива :-18.5
Отсортированный массив по убыванию :
5 4 3.4 2.2 2 -6.3 -12 -18.5

Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i,n ,max,h,k: integer;
begin
write('Количество элементов массива :');readln(n);
write('Число H :');readln(h);
write('Число K :');readln(k);
SetLength(a, n); // задаем длину массива
max:=-MaxInt;
writeln('Исходный массив:');
for i:=0 to n-1 do
    repeat
      write('Введите ',i+1,' число из ',n,' : ');readln(a[i]);
      if a[i]>max then max:=a[i];
    until (a[i]<=7) and (a[i]>=-12);
for i:=0 to n-1 do begin
    if (a[i]>h) and (a[i]mod k=0) then
      writeln('Число ', a[i],' больше ',h,' и кратно ',k);
end;
writeln('Максимальный элемент массива :',max);
writeln('Отсортированный массив по возрастанию :');
a.sorted.println;
end.

Тестовое решение:
Количество элементов массива :8
Число H :-8
Число K :2
Исходный массив:
Введите 1 число из 8 : -10
Введите 2 число из 8 : 6
Введите 3 число из 8 : -4
Введите 4 число из 8 : 3
Введите 5 число из 8 : 1
Введите 6 число из 8 : -1
Введите 7 число из 8 : -12
Введите 8 число из 8 : 4
Число 6 больше -8 и кратно 2
Число -4 больше -8 и кратно 2
Число 4 больше -8 и кратно 2
Максимальный элемент массива :6
Отсортированный массив по возрастанию :
-12 -10 -4 -1 1 3 4 6

4,5(23 оценок)

Это интересно:

Компьютеры-и-электроника

12.08.2022

Как экспортировать историю чата Skype на компьютерах Windows и Mac...

Здоровье

02.09.2020

Польза и способы приема пчелиной пыльцы...

Компьютеры-и-электроника

26.03.2023

Как изменить проверочный номер для кода безопасности iCloud на iPhone...

Семейная-жизнь