Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
мартина
19.03.2022 02:09 •
Информатика
Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.найти максимальный элемент и заменить его значение на 50 pascal
Показать ответ
Ответ:
belakova
01.10.2020 13:46
Var
a:array[1..15] of integer;
max,i:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zaxarov20012
20.03.2022 13:35
Придумайте пример решаемой на компьютере и назовите для нее исходные промежуточные и итоговые данные...
Настя0857
29.02.2020 10:01
Вэлектронной таблице значение формулы =сумм(а1: а4) равно 10. чему равно значение ячейки а4, если значение формулы срезнач(а1: а3)равно 3...
bhncgfhkjghuiou
20.09.2020 01:09
Программа в Pascal Рассматривается множество целых чисел, принадлежащих числовому отрезку [1016; 7937], которые делятся на 3 и не делятся на 7, 17, 19, 27. Найдите...
гулллллл
20.08.2021 05:30
На улице дождливая погода. Высказывание или нет?...
mamarika2001
31.08.2022 16:35
Напишите наименьшее число x, для которого истинно высказывание: (x 23) И НЕ (x делится на 8) Ребят ,очень...
nikitkaandreev1
02.01.2022 08:20
Определите качество звука, если известно, что объем стереоаудиофайла длительностью звучания в 10 секунд при частоте дискретизации 8 кгц равен 940 кбайт....
Мурмик
09.02.2020 19:24
После запуска программы на исполнения. Компьютер выдал ошибку. Дайте объяснение ошибки...
Юлдуз1122
02.12.2020 22:23
Чем могут быть интересны современному читателю книги томаса майн рида, фенимора купера, густава эмара? !...
DetkaGeimer
02.12.2020 22:23
Нужно характеризовать лизергиновую кислоту по следующим параметрам 1)высшая или низшая 2)предельная или непредельная 3)одноосновная или многоосновная...
Ramil2425
02.12.2020 22:23
Сократить дроби 35\96,48\63,24\39,108\144,140\1225,1300\390,105\168,765\510...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..15] of integer;
max,i:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln(max);
end.