tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан одномерный массив.
Дан одномерный массив. заменить минимальный элемент нулём
maschakriki
2 10.07.2019 06:30
1
Ответы
evdokiya888p06xhz
17.09.2020 10:49
Var
a:array[1..10000] of integer;
i,n,min:integer;
begin
writeln('Кол-во элементов массива');
readln(n);
for i:=1 to n do
read (a[i]);
min:=1;
for i:=2 to n do
if a[min]>a[i] then
min:=i;
a[min]:=0;
for i:=1 to n do
write(a[i],' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
POMIDOrio
18.03.2022 15:35
Рядом с рисунком ещё сложи рисунок Задание:предложите требования для создания данной программы...
Дарьялол1
18.03.2022 15:32
С какой функции определяется длина строки, касательная числа?...
Чел1046738
18.03.2022 15:29
Найти среди трёхзначных чисел простые (натуральные числа которые делятся только на 1 и само число: 2 3 5 7 11...) и у которых сумма цифр и все цифры тоже простые цифры. Например...
angelinachka3000
18.03.2022 15:26
Напишите результат выполнения программы PRINT (15%6)...
сусанна27
18.03.2022 15:00
2. Запишите формулу главной диагонали квадратной матрицы. 3. Дан массив М. а) Запишите код программы двумерного массива, состоящий из 6 элементов. б) Выведите элементы этого...
6lackk
18.03.2022 14:57
( ) 2. Написать программу, которая вычисляет произведение чисел кратных 3 из диапазона от 20 до 40 с шагом 2....
ilyator
18.03.2022 14:55
№7. найти и исправить ошибку в программе: (26) x= int(ввод(введи x)) печать( результат , b**2+bx-x/6) СОР ПО ИНФОРМАТИКЕ...
roman81rudi
18.03.2022 14:51
Напишите программу применяя while/else и покажите результат выполнения программы. Вывести на экран слово «Hello», пока условие повторения цикла истинно, иначе выводит на экран...
alexandur96
02.09.2019 05:20
Написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального...
vecronika54
02.09.2019 05:20
Алфавит содержится 32 символов. определите информационный вес одного символа из этого алфавита...
Популярные вопросы
Опишите китай 1.) определите, как расположен материк относительно экватора,...
3
Найдите отрицательный корень уравнения : 144-х^2=0 напишите решения )...
1
Решите там улитка и маленький водяной отправились от дома карпа и т.д кто...
1
Заранее ! завод истратил на приобритение нового станка 450 000 р.как правило,через...
3
Решить молекулярные уравнения и составить к ним ионные hcl+na2so4 h3po4+cacl2...
2
Смысл названия фильма судьба человека, 15 пунктов за ваше объяснение ,...
1
1)найдите значение выражения: а)40: (-5-3) б)13,8*1,6-13,8*3\5 в)57: 3,6\17-17,8+1...
3
Втреугольнике abc угол a в 4 раза меньше угла b,а угол c на 90 градусов...
2
Длина огорода 30 м, а ширина 40 три шестых засеяно капустой. сколько квадратных...
2
Температура і тиск на вершині гори роман-кош(1545 м ),біля підніжжя 20...
1
a:array[1..10000] of integer;
i,n,min:integer;
begin
writeln('Кол-во элементов массива');
readln(n);
for i:=1 to n do
read (a[i]);
min:=1;
for i:=2 to n do
if a[min]>a[i] then
min:=i;
a[min]:=0;
for i:=1 to n do
write(a[i],' ');
end.