Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
маринька
02.03.2021 08:59 •
Информатика
Дан массив случайных чисел из 20 вещественных элементов. найти максимальный по модулю элемент массива. мне нужна сама программа написанная!
Показать ответ
Ответ:
SashaNemur
27.09.2020 16:27
Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
diman129
07.09.2021 01:42
4.Внимательно прочитайте код программы: if name== Obi Van : print ( Hello, name), elif name == Luck Skywalker : print ( You are Jedi! ). Выберите вариант в котором...
vladsimonenko4
30.09.2022 04:44
Сколько команд повторяется в цикле алгоритма? начало 1. открой книгу 2. повтори 60 раз 3. прочти записи на левой странице 4. прочти записи на правой странице 5. переверни...
LeBleque
10.08.2021 12:22
Дано слово. определить сколько различных букв в нём. программа паскаль...
Мировец2003
09.10.2020 07:40
Help,please Введіть ціле число n, n≤20. Обчисліть значення 2^n і виведіть покроково значення виразу при кожному значенні n. n=1 = 2^1=2 n=2 = 2^2=4 n=3 = 2^3=8 n=4...
куся26
09.12.2021 23:37
2. Температура на уровне моря +19 °С , какая же температура воздуха будет на высоте 4700 метров...
varkraft
20.05.2021 13:22
Ткани подбираются до пересадки органов, чтобы убедиться что донора и реципиента совпадают как можно ближе: а) Т-клетки б) антитела в) MНC г) гистамины д) В-клетке ...
BelkinaDasha000
28.02.2021 13:38
1 моль Fe = 0,5 моль C = 2моль Al2O3 =...
zarina20178
28.02.2021 13:38
ОНЛАЙНМЕКТЕП Әр қатардағы сөздердің артығын белгіле.1. Туған жер, туған ел, Қазақстан, мектеп2. Ата-әже, әке-ана, бала-шаға, аяқ-қол3. Сағыну, аңсау, күлу, еркелеу,...
ulia115
28.02.2021 13:38
Пифагорова тройкаНайди третью сторону прямоугольного треугольника....
aiis171
28.02.2021 13:38
Установите соответствие между названием эпохи складчатости и названием горной системы Эпоха 1) герцинская 2)байкальская 3) мезозойская 4) кайнозойская а) срединный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.