Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
erro14
13.03.2023 03:44 •
Другие предметы
Приведите примеры примет, поговорок о погоде. Объясните их происхождение.
Ответ:
aitxam
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 оценок)
Популярные вопросы: Другие предметы
rus170
24.03.2022 10:11
У казці,,Аліса в країні див‘‘ розділ ,,Божевільне чаювання‘‘ фразеологізми...
arishkakorneva
14.02.2022 13:07
Задание Oтветить на вопросы,1. Где и почему применяютсоединение деталей издревесины ТолькоТвоздям?2 Чем отличаетсясоединените шурупа II ОТсоединения гвоздями?3. Что такое...
MilaPlay123
17.02.2022 00:13
Можешь ли ты нарисовать его траекторию? Почему?...
imhopro
20.01.2020 08:55
Ещё спят в своих тёплых норах и берлогах барсуки и медведи. Задание: определить все части речи в предложении (написать над словами), сделать морфологический разбор имени...
limbo03rus
04.10.2021 11:54
Из плохо закрытого по небрежности водопроводного крана каждую секунду вытекает 1 капля воды 1) сколько граммов воды вытащи за сутки если масса 100 капель равна 7 г округлите...
ksu010157sha
25.12.2020 06:09
Назовите автора слов песни «катюша». назовите автора музыки песни «катюша». когда состоялась премьера песни? кто впервые исполнил песню «катюша»? какая известная певица исполняла...
СоняКот2000
15.03.2020 19:08
Решите) 15 .длина прямоугольника b (cm) ширина прямоугольника ? (cm)площадь прямоугольника 5,6b (cm²)...
SOSISKA2281
30.11.2021 21:39
На ремонт квартиры было потрачено 2,5 млн р. при этом на оплату рабочих пошёл 1 млн р., а остальные на закупку строительных материалов. какой процент от всей суммы был потрачен...
lerakendrick
08.04.2023 20:07
Сколько сантиметров в 2,3894 метра? ! с ! ...
milenavoskanya
22.11.2020 21:49
Визначте чотири числа: x1, x2, x3, x4, що утворюють спадну прогресію, якщо x1+x3=15; x2+xx4=7,5; ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.