Задать вопрос
ИнформатикаИнформатика
12 декабря, 04:31

1. На входе непустая последовательность натуральных чисел с нулем в конце.

Вывести MIN и среднее арифметическое.

Представить блок-схему и pascal-программу.

2. На входе последовательность вещественных чисел с нулем в конце.

Вывести разброс последовательности (разность между MIN и MAX).

Представить pascal-программу.

+1
Ответы (1)
  1. 12 декабря, 04:59
    0
    1) a:real; com : array [1 ... 100000] of integer; beginn:=100000; for i:=1 to n do beginreal (com[i]) ; if com[i]=0 then n:=0; end; min:=com[1]; for i1:=2 to i do beginif min>com[i1] then min:=com[i1]; end; for i1:=1 to i do begina:=a+com[i1]; end; writeln ('минимальное значение ', min,' среднее арифметическое ', a/i) ; end
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1. На входе непустая последовательность натуральных чисел с нулем в конце. Вывести MIN и среднее арифметическое. Представить блок-схему и ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val (InputBox (2)) y = (InputBox (6)) z = (InputBox (10)) If x / 2 > y / 3 > z / 4 Then If x / 2 > y / 3 Then max = x / 2 Else max = y / 3 End If End If Else If y / 3 > z / 4 Then max =
Ответы (1)
Составить блок-схему к данному коду Var Min, Max, i, m, n:Integer Begin Readln (n) ; max:=-maxint-1; min:=maxint For I:=1 to n do begin ReadLn (m) ; If (m>max) then max:=m; If (m end; Writeln (max,' ', min) ; End.
Ответы (1)
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)
Выдает ошибку Операция > не может быть применена к типам boolean и integer Program qq; var a, b, c, max, min, med : integer; begin writeln ('введите три числа') ; read (a, b, c) ; if c>b>a then begin max : = c; med : = b; min : = a; End;
Ответы (1)
Исправить ошибки в паскале program massiv2; type mas=array [1 ... 100] of integer; var a: = Max; i, n, min, max, b : integer; недопустимый символ: = (д/б просто :; неизвесмтное имя типа max) begin writeln ('n=') ; readln (n) ;
Ответы (2)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа
Главная » Информатика » 1. На входе непустая последовательность натуральных чисел с нулем в конце. Вывести MIN и среднее арифметическое. Представить блок-схему и pascal-программу. 2. На входе последовательность вещественных чисел с нулем в конце.
Регистрация Забыл пароль