Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2021, 21:31   #1
aqquick
Новичок
Джуниор
 
Регистрация: 18.12.2021
Сообщений: 2
По умолчанию Все элементы массива поделить на заданное число

Парни, только вникаю во всё это дело, помогите пожалуйста с решением данной задачи, спасибо!

Все элементы массива поделить на заданное число, а затем в полученном массиве поменять местами самый левый минимальный элемент с последним элементом.
aqquick вне форума Ответить с цитированием
Старый 18.12.2021, 23:53   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,311
По умолчанию

Начинай. Поможем.
Итак:
Код:
Program Lazy_student;
var
bems: array[1..10] of ?
......
Массив-то хоть какой: integer,real,char ? Я понимаю, что секретно. Но я никому не скажу
На занятиях хоть раз появлялся? Книжку открывать пробовал?

Последний раз редактировалось digitalis; 18.12.2021 в 23:58.
digitalis вне форума Ответить с цитированием
Старый 19.12.2021, 00:03   #3
aqquick
Новичок
Джуниор
 
Регистрация: 18.12.2021
Сообщений: 2
По умолчанию

digitalis, integer, ахаха, появлялся
aqquick вне форума Ответить с цитированием
Старый 19.12.2021, 00:18   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

digitalis, ща о5 окажется не классика ТР, а АБЦ какой-то
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 19.12.2021, 12:30   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,311
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
АБЦ какой-то
У этого как бы языка есть свои поклонники, они за "какой-то" могут бока намять. Я уж боюсь про него худого слова сказать.
aqquick
Цитата:
появлялся
чтоб приятелей в пивную пригласить ?
Итак, имеем целочисленный массив. После деления (не div) он уже целочисленным не будет, так что лучше его определить как real. Ещё понадобится число, на которое делить, его тоже надо будет ввести. И организовать цикл. Слово знакомое?
Итак, "Поехали !", как говорит утилизатор Юрий Сидоренко . Начало я тебе уже накромсал.
Код:
Program Lazy_student;
const N=10;
var
bems: array[1..N] of real ;
divisor,val_min: real;
i,i_min: integer;
begin
   // Here is the input of the source data
for i := 1 to N do
begin
    Write ('Element  [',i,']';
    Readln (bems[i]) ;
......
Так и далее.
Поиск минимума можно втоптать прямо в цикл ввода, чтоб два раза не возвращаться (Казань взять).

Последний раз редактировалось digitalis; 19.12.2021 в 12:58.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дан массив X(11). Поделить все элементы данного массива на минимальный (включая его) и вывести результат в таком порядке в каком б Кан Паскаль, Turbo Pascal, PascalABC.NET 1 26.12.2013 09:29
Вывести на экран все простые числа, не превосходящие заданное число М - Паскаль bibek13 Помощь студентам 4 06.12.2011 08:17
Элементы матрицы. Все ненулевые элементы массива D(k) расположить в начале массива E(k) и подсчитать их к Вася Маклауд Помощь студентам 0 03.04.2011 17:21
все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр. Julila Помощь студентам 42 03.03.2011 00:38
Создать программу замены четных элементов линейного массива на заданное число d MrJohanson Помощь студентам 3 26.01.2010 12:25