tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Приведите примеры примет, поговорок
Приведите примеры примет, поговорок о погоде. Объясните их происхождение.
annaastashova
3 17.04.2019 02:40
1
Ответы
soldiertoy01
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
alisha15sherban
20.06.2019 12:53
Актуальность принцип работы плазменного телевизора...
СпудиМэн
20.06.2019 12:52
Нужно нарисовать через цикл такие линии...
ansarildar
20.06.2019 12:17
Нужно ли идти на вручение аттестата, если не сдал один экзамен (на выбор)? выдадут ли мне аттестат или что-то ещё?...
denisskidan201
02.02.2021 12:22
Методика работы в музеяхплан...
xomahgf
02.02.2021 12:20
Кто помнит смерть xxxtentacion? ...
Makcumuluan
02.02.2021 12:20
Вкладник поклав у банк на депозитний рахунок 150 000 грн., терміном на 6 місяців за системою щомісячного нарахування складних відсотків у 10% річних. Якою буде сума нарахованих...
kate050804
02.02.2021 12:19
Прикметники слова суспильство...
arpinan
02.02.2021 12:19
1. Что является государственными символами РК? 2. Когда были приняты государственные символы РК?3. Кто является авторами герба РК?4. Кто оберегает шанырак с двух сторон, выражая...
ДАШУНЯ1311
02.02.2021 12:18
Https://discord.gg/kB2tpQx6NeКто зайдет ...
ыссмиииии
02.02.2021 12:16
Чем похожи отражения света и отражение звука? ...
Популярные вопросы
50 б! цистерну в течение пяти часов наполнили водой. при этом в каждый следующий...
3
При каких значениях х верно равенство: а) (-7)^5-х+2=1 б) (-7)^|x|-2=-7...
3
Бригада швей выполняет заказ за 90 дней. сколько нужно швей, чтобы выполнить...
2
Объём дидона 20 литров, это на 10 литров больше, чем объём канистры. чему...
1
Куплено 120 ручек гелевых и шариковых на сумму 440 рублей. шариковая ручка...
3
Раставить знаки препинания и объяснить их 1 маша обещала я приеду приеду...
3
Ввыпуклом многоугольнике есть 5 углов с градусной мерой 140 градусов каждый,...
2
Найдіть гострі.прямі і тупі: е=90,f=137,q=92,t=180,k=90,o=84....
1
Деление с остатком. реши примеры: 8 : 3 17 : 2 14 : 3 34 : 5 39 : 11 40...
2
Вбоковой стенке высокого цилиндрического бака у самого дна закреплён кран....
2
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.