Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 12.09.2013
Сообщений: 9

Массив содержит n положительных целых чисел

01.11.2013, 06:22. Показов 1214. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Массив содержит n положительных целых чисел, отсортировать массив методом вставок по последней цифре некоторого числа
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
01.11.2013, 06:22
Ответы с готовыми решениями:

Преобразовать массив целых чисел так, чтобы вместо его положительных элементов были значения их факториалов
Здравствуйте, проверьте пожалуйста решение задачи по программированию, работа с модулями. :good: Программа с модулем Program summa; ...

Сумма первых n целых положительных четных целых чисел - цикл while заменить на for
var n,i,a,s:integer; begin clrscr; writeln('Введите количество суммируемых чисел и нажмите Enter'); readln(n); s:=0; a:=2; ...

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов
2.В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с...

1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
01.11.2013, 18:59
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  n = 15;
type 
  mas = array [1..n] of word;
var a : mas;
    m : word;
    i : byte;
 
{выделение посдедней цифры в числе}
function last(a : word) : byte;
begin
  last := a mod 10
end;
 
{поиск места вставки}
function search(a : mas; j : byte):word;
var
  m : word;
begin
  m := 1;
  while last(a[m]) < last(a[j]) do m := m + 1;
  search := m
end;
 
{вставка}
procedure insrt(var a : mas; i, m : word);
var
  temp, z : word;
begin
  temp := a[i];
  for z := i - 1 downto m do
    a[z+1] := a[z];
  a[m] := temp;
end;
 
begin
  {формируем массив и выводим его}
  randomize;
  writeln('массив:');
  for i:=1 to n do
  begin
    a[i]:=random(100);
    write(a[i]:4)
  end;
  writeln;
  {сортировка}
  for i := 2 to n do
  if last(a[i]) < last(a[i-1]) then
  begin
    m := search(a, i);
    insrt(a, i, m)
  end;
  writeln('Отсортированный массив:');
  for i:=1 to n do
    write(a[i]:4)    
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.11.2013, 18:59
Помогаю со студенческими работами здесь

Дан массив из n целых чисел.Определить количество положительных чисел, используя функцию определения положительности числа.
Плиз срочна нуна !!!

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b.

Дан прямоугольный массив целых положительных чисел 10 х 20
Дан прямоугольный массив целых положительных чисел 10 х 20. Опишите алгоритм поиска строки с наименьшей суммой элементов. Вывести на печать...

Дан одномерный массив, который содержит не более 50 целых чисел. Найти и вывести те элементы, которые больше предыдущего.
Дан одномерный массив, который содержит не более 50 целых чисел. Найти и вывести те элементы, которые больше предыдущего.

Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму элементов, у которых последняя цифра больше данного числа Х
Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму элементов, у которых последняя цифра больше данного числа Х


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru