сервис вопросов и ответовНужно решение) кто способен?
10-11 класс|
|
Вопрос 1.
На одномернный массив, вывести его в порядочный вид по убыванию!
Zaro453
20 июля 2013 г., 8:54:27 (10 лет назад)
Slavasp99
20 июля 2013 г., 9:54:05 (10 лет назад)
const n=10;
var a:array[1..n] of integer; i,j,k:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=1 to n do write(a[i]:3);
end.
Ответить
Другие вопросы из категории
Целесообразно ли с точки зрения безопасности компьютерной
системы объединение в одном лице функций администратора и аудитора?
алгоритм Мишень цел n, k, i вещ массив P[1000] вещ r1, r2 начало ввести
n, массив P и радиусы r1, r2 /* Исходные данные */
вывести заголовок задачи и значения n, P, r1, r2 k ¬0 для i от 1 до n шаг 1 выполнять/*
Подсчитать число точек */ если r1 < ri и ri < r2 то k ¬k +1
конец-если
конец-цикл
вывести заголовки выходных данных и значений k конец
Теперь спланируем тестирование.
Проверку программы выполним при следующих исходных данных.
Зададим число точек на плоскости: n = 10. Подберем расстояния и радиусы: 0.03 21.0 12.89 7.41 99.99
P = 12.34 56.78 90.98 7.6 0.54
r1 = 12.35 r2 = 56.90.
Выходные данные в этой задаче будут иметь вид: Мишень Исходные данные:
n= 10 Массив P[n]: 0.03 21.0 12.89 7.41 99.99 12.34 56.78 90.98 7.6 0.54 r1 = 12.35 r2 = 56.90
Ответ: внутри 3 точки (три точки находятся внутри кольца).помогите написать программа в паскале и алгоритм блок-схему.пожалуйста срочно!
Дан массив: BBABBAAA. К чему Незнайка применил следующий алгоритм: если первый элемент массива равен"А", то меняем местами перые два элемента массива, а
если же первый элемент массива равен "B" , то переносим его на третью с конца позицию.Каку юпоследовательность получил Незнайка, если данный алгоритм он применил 6 раз?
Читайте также
1)Загадано число от 1 до 100.Загадавший на все вопросы отвечает только "да" или "нет".Какое наименьшее число вопросов нужно задать, чтобы
гарантированно угадать число? 2)В велокроссе участвуют 119 спорстменов.Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимально возможного количества бит, одинакового для каждого спортсмена.Каков информационный объем в битах сообщения, записанного устройством, после того как промежуточный финиш прошли 70 велосипедистов? Помогите пожалуйста, нужно решение как можно скорее!
Нужно решения задач по Delphi...(хотя бы одной)
1,Описати статичний масив.
Масив зчитується з текстового файлу.
Визначити:
Мінімальне значення масиву, його індекси
Задана матриця (n×m). Визначити номер рядка, середньоарифметичне елементів якої менше за середньоарифметичне попереднього рядка
2.Текстовий файл F1 має містити не менше 10 рядків.
Скопіювати з файлу F1 в файл F2 всі рядки, які не містять слова, яке починається за задану літеру. Визначте найкоротше слово у файлі F2.
Вы находитесь на странице вопроса "Нужно решение) кто способен?", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.