М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pervushina245
pervushina245
11.10.2020 21:29 •  Информатика

Написать программу которая создает список из 100 случайных целых чисел из промежутка [0, 1000] и картеж из 20ти действительных чисел из промежутка [-50.555, 30.333]. 1. Используя цикл for, вывести числа списка корень которых больше чем среднее картежы.

2. 1-ую задачу сделать используя цикла for.

НА ЯЗЫКЕ PYTHON

👇
Ответ:
Vad1mm
Vad1mm
11.10.2020

import random #Для обьявления функций заполнения массива#

import math #Библиотека math для считывания корня числа#

from random import randint #Библиотека randint для заполнения массива случайным ЦЕЛЫМИ числами#

import numpy #Библиотека numpy для нахождения средней арифметической#

import array

#Обьявление кортежа, заполнение рандомыми действительными числами(для действительных чисел используется метод math.uniform) количеством в 20 элементов, в диапазоне ниже написанного#

aTuple = [random.uniform(-50.555, 30.333) for x in range(0, 20)]

#Заполнение массива уже только ЦЕЛЫМИ числами, для целых чисел используется randint#

numbers = [randint(0, 1000) for x in range(0, 100)]

print("\nRandom numbers in the range from 1 to 1000, whose root is greater than the arithmetic mean of the tuple numbers: ")

#len — длина массива#

for i in range (len(numbers)):

#math.sqrt — метод извлечения квадратного корня#, "numpy.mean" — метод, вычисляющий среднюю арифметическую#  

   if math.sqrt(numbers[i])>numpy.mean(aTuple):

       print(numbers[i])

4,7(5 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден
4,6(87 оценок)
Ответ:
islamghj
islamghj
11.10.2020
Uses crt;
const
    nmax = 20;

var
    A: array[1..nmax] of integer;
    I, m, s: integer;
    Am, kon: text;

begin
    Clrscr;
    Assign(Am, 'Am.txt');
    
    {раскоментировать для записи массива в файл}
    {Rewrite(Am);
    m := Random(nmax - 5) + 5;
    for i := 1 to m do
        Writeln(Am, Random(20));
    Close(Am);}
    
    {считывание данных из файла}
    Reset(Am);
    s := 0;
    m := 0;
    while not eof(Am) do
    begin
        m := m + 1;
        Readln(Am, A[m]);
        s := s + A[m];
    end;
    Close(Am);
    
    Assign(kon, 'kon.txt');
    Rewrite(kon);
    
    if s > 50 then
        Writeln('Сумма элементов массива более 50 и равна: s=', s)
    Else
    begin
        Writeln('Сумма элементов менее 50, вывод исходного массива');
        for i := 1 to m do
        begin
            Writeln('A[', i, ']=', A[i], ' ');
            Writeln(kon, 'A[', i, ']=', A[i], ' ');
        end;
    end;
    
    Close(kon);
    Readkey;
end.
4,4(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ