Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nik480
23.10.2022 03:17 •
Другие предметы
Приведите примеры примет, поговорок о погоде. Объясните их происхождение.
Показать ответ
Ответ:
Среднячёк
02.06.2020 17:15
Program vladimir37005;
const n=5;
var a:array[1..n] of integer;
i,min,k:integer;
begin
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;
min:=a[1]; k:=1;
for i:=1 to n do
if (A[i] < min)
then begin
min:=A[i];
k:=i;
end;
for i:=1 to n do
if (a[i] < 0) and (a[i] > min)
then begin
min:=a[i];
k:=i;
end;
a[k]:=0;
for i:=1 to n do
write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
shadureyski
08.07.2022 15:57
Приведите пять парадных портретов и 5 камерных портретов...
lemarakurtazhiv
12.03.2023 13:53
Які недоліки можливі при встановленні зубчастого колеса на вал...
marsianin121
17.12.2020 11:13
Дай подпишись на меня...
VovkaGamer228
29.12.2022 22:21
Выберите из списка те существительные, от которых творительный падеж единственного числа образуется с окончания -ом:веш ‘бельё’извештај ‘сообщение’лосос ‘лосось’муж ‘муж’нож...
moon2536
25.05.2021 02:59
Татар теленнән итоговый тест 1 вариант 1. Исем нәрсәне белдерә? а) предметның билгесен б) билгенең билгесен в) предметны 2. Кем? соравы кайсы очракта бирелә? 3. Ясагыч кушымча...
Updatek
28.09.2020 13:46
К социальным факторам относят: а) войну, б) голод, в) этикет...
Comicsans123
29.03.2021 19:48
Пересечение трёх плоскостей проекций образуют: а) эпюр; б)соединение; в) октанты...
Aina2006
21.12.2020 22:10
Подскажите название фильма Недавно я смотрел фильм, но забыл сохранить название. Подскажите если поймёте о каком фильме идёт речь. Фильм про то, как одна девушка (у неё был свой...
ddasha681
20.03.2023 02:53
Їжу, яку споживаєте, має бути багата на поживні речовини: А вуглеводи; Б овочевий сок; В фрукти; Г мінеральні речовини....
максон50
27.10.2020 05:14
Почему я не могу войти в приватность в вк ответьте и как решить эту проблему? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=5;
var a:array[1..n] of integer;
i,min,k:integer;
begin
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;
min:=a[1]; k:=1;
for i:=1 to n do
if (A[i] < min)
then begin
min:=A[i];
k:=i;
end;
for i:=1 to n do
if (a[i] < 0) and (a[i] > min)
then begin
min:=a[i];
k:=i;
end;
a[k]:=0;
for i:=1 to n do
write(a[i],' ');
end.