Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
andreybrake
30.04.2022 22:00 •
Другие предметы
Приведите примеры примет, поговорок о погоде. Объясните их происхождение.
Показать ответ
Ответ:
Vladyslav2009
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 оценок)
Популярные вопросы: Другие предметы
hatasa75
08.08.2021 23:34
Кто был художником постановщиком(постановки) в фильме оно...
tafefuyozo
18.06.2021 05:48
Что вы сейчас может выполнять...
nastorekhova20
17.09.2021 01:51
Кем я хочу видеть себя через 10? Всмысли сфере...
Nuraaaykaaa
26.03.2022 04:24
Чётные элементы Выведите все четные элементы списка. Входные данные В первой строке стоит число n - кол-во чисел в списке. Вводится список чисел. Все числа стоят в отдельных...
dianaknyazeva
24.07.2021 08:57
От звука е (ми) построить ув 4 и разрешить во всех тональностях, которых она встречается...
tryx3
28.02.2020 13:29
Что вы понимаете - что означает защита семьи супруга по закону? Какие законы регулируют права ребенка и супругов? Что они определяют?...
edkot
20.06.2021 04:51
Приведите пример пренебрежительного отношения к человеку в про- цессе общения...
Fania2009
07.03.2023 07:39
Возросли которые занесены в Красную книгу, и прорастают на озере Кандры куль...
Айкаса
12.08.2022 07:21
Напишите о своих соседей или родственников достиженияхх в тетради...
SemenBio
30.11.2021 03:08
Сколько фразеологизмов в этих текстах ты сможешь найти подчеркни их объясни смысл когда-то я был с ним на короткой ноге...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.