сервис вопросов и ответовДаны натуральные числа N<20 попарно различные действительные числа а1...а20. В последовательности а1....а20 поменять местами наименьший элемент и
10-11 класс|
|
элемент с номером 20-N
Спекки
09 июня 2016 г., 2:15:00 (7 лет назад)
Stels116
09 июня 2016 г., 4:40:28 (7 лет назад)
program nn;
uses crt;
var a:array [1..20] of real;
t:real;
i,n,min:integer;
BEGIN
{ввод последовательности, это самостоятельно}
min := 1;
for i := 1 to 20 do
begin
if a[i] < a[min] then
min := i;
end;
t := a[min];
a[min] := a[20-n];
a[20-n] := t;
END.
Ответить
Другие вопросы из категории
1) В целочисленном массиве М размера 9 определить
сумму элементов и номера положительных
элементов.
2)
задается целое число N. нужно вывести количество четных делителей числа N. Формат входных данных Единственная строка входного файла
содержит единственное целое число N(1<=N<=1000)
Формат выходных данных
выведите ответ к задаче
Написать программу выполнения следующего задания: из всех непрерывных участков массива а1, а2,…, аn, состоящих из нулей, выбрать наибольший по длине.
Вывести индексы его начала и конца.
нужно помочь, не могу понять как делать, программирование паскаль не для меня , помогите
диаметр колеса автомобяля хсм колесо требует замены через н оборотов.
Какое расстояние проедет автомобиль до замены колеса?
Читайте также
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
1.дано натурально четырехзначное число. определить цифры этого числа (K,L.M.N) и выяснить можно ли построить ромб со сторонами K,L.M.N.в паскале АВС.
2.дано натурально число N вычислить куб суммы этого числа
люди помогите!!! в паскале при помощи while .дано натуральное число n<10 прибавлять к нему его первоначальный квадрат и выводить на экран результат
пока результат не станет большим 250
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
Вы находитесь на странице вопроса "Даны натуральные числа N<20 попарно различные действительные числа а1...а20. В последовательности а1....а20 поменять местами наименьший элемент и", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.