Задать вопрос
11 февраля, 15:53

Дан массив из 18 чисел (Xi). Найти и напечатать

1. Минимальный элемент массива (Min)

2. A=S/Min,

Где S - сумма элементов массива, которые больше 10.

+5
Ответы (1)
  1. 11 февраля, 16:20
    0
    var X = [], Min, S = 0, A; for (let сч = 0; сч < 18; сч++) X. push (Math. random () * 25) ; X. forEach (function (зн, сч) { if (сч = = 0) Min = зн; else if (зн 10) S + = зн; }) ; A = S / Min;
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив из 18 чисел (Xi). Найти и напечатать 1. Минимальный элемент массива (Min) 2. A=S/Min, Где S - сумма элементов массива, которые ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Паскаль! Дан массив А размерностью N. Записать в каждый элемент массива В следующие значения: 1 ый элемент - сумма всех нечетных элементов массива А; 2 ои элемент - сумма всех четных элементов массива А: Зий элемент - сумма всех элементов массива А
Ответы (1)
5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write ('Vvedi chislo ') ; Readln (A) ; If A < Min then Min:=A; end; Writeln ('MIN=', Min) ; Readln; end.
Ответы (1)