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

Массив из 10 элементов заполнить случайными числами и найти среднее арифметическое всех нечётных значений

👇
Ответ:
romka199811p0bu18
romka199811p0bu18
08.08.2022
1. Современный вариант

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(10,1,50); a.Println;
  Writeln('Ср.арифм.нечетных=',a.Where(x->x.IsOdd).Average)
end.

Тестовое решение:
43 47 37 17 1 39 47 46 3 34
Ср.арифм.нечетных=29.25

2. Школьный вариант

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
const
  n=10;
var
  a:array[1..n] of integer;
  i,s,k:integer;
begin
  Randomize;
  k:=0; s:=0;
  for i:=1 to n do begin
    a[i]:=Random(50)+1;
    Write(a[i],' ');
    if Odd(a[i]) then begin
      s:=s+a[i]; Inc(k)
      end
    end;
  Writeln;
  Writeln('Ср.арифм.нечетных=',s/k)
end.

Тестовое решение:
22 46 37 36 23 30 18 19 15 12
Ср.арифм.нечетных=23.5
4,7(88 оценок)
Открыть все ответы
Ответ:
bilainфом
bilainфом
08.08.2022
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Ответ:
flagvamvruke
flagvamvruke
08.08.2022

1) SketchUp

программы подсказывать наиболее удобный следующий ход и действия -  в любой момент построений он выводит на экран  графические и текстовые подсказки (левый нижний угол), опираясь на которые можно легко и быстро работать

Еще одна "фишка" SketchUp - панель VCB (Value control box) , это единственная числовая шкала на всем рабочем столе, она расположена в правом нижнем углу экрана.  

VCB выполняет две функции:

2.1 контроль за текущими действиями - редактируя, или создавая обьект, можно видеть величину его изменения в реальном времени

2.2 вводя точные числа в окошко после примерного выполнения действия, легко создавать идеально точные обьекты - для ввода в VCB не нужно наводить курсор на окошко, числа автоматически считываются с клавиатуры, так экономятся драгоценные секунды, что очень ценно в наш торопливый век

4) Интерфейс программы минималистичен настолько что напоминает детскую игрушку, но это обманчивое впечатление, на самом деле возможности SketchUp весьма широки, достаточно посмотреть на модели, которые делают профессионалы

8) Повышения качества моделей в определенных сферах, например архитектура.

9) Любительское создание графики

Объяснение:

4,6(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ