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

Программа для нахождения наименьшего и наибольшего из трех чисел в паскале

👇
Ответ:
гогогогог
гогогогог
17.04.2023

Program Pr1;
uses crt;
var a,b,c,max:integer;
begin
clrscr;
readln(a,b,c);
if a>b then max:=a
else max:=b;
if c>max then max:=c;
writeln(max);
end.

4,4(45 оценок)
Открыть все ответы
Ответ:
ольга1698
ольга1698
17.04.2023

Объяснение:

Участвуя в Событии, каждый игрок должен всегда соблюдать данные правила, а в случае, если игрок является Несовершеннолетним (определение приведено ниже), его родитель или законный опекун должен за выполнением Несовершеннолетним данных Правил, включая Правила поведения, указанные в разделе 8. Игрок (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) может принять данные Правила, щёлкнув по соответствующей кнопке в игровом клиенте, когда такая возможность будет предоставлена компанией Epic Games, Inc. (далее — Epic). Принимая участие в любой игре или матче в рамках События, игрок подтверждает, что он (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) соглашается с данными Правилами в соответствии с настоящим пунктом 1.2.

4,7(32 оценок)
Ответ:
125DVV
125DVV
17.04.2023

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

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

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

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

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41

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