Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Для произвольного двумерного массива F(5;5) сформировать массив В из элементов, расположенных выше главной диагонали https://www.cyberforum.ru/ free-pascal/ thread2623141.html Для произвольного двумерного массива F(5;5) сформировать массив В из элементов, расположенных выше главной диагонали.	Сортировка с компаратором Free Pascal Есть сортировка методом пузырька по возрастанию из файла. Что нужно добавить в код, чтобы в зависимости от значения компаратора сортировалось по возрастанию или убыванию. Вот код: uses crt; const...
Free Pascal Ошибка с модулем Crt https://www.cyberforum.ru/ free-pascal/ thread2621659.html Делаю программу на паскале, при импорте модуля Crt, выдаёт ошибку: crt.pas(15,9) Error: Dublicate identifier "SYSTEM" crt.pas(15,9) Error: Dublicate identifier "system" crt.pas(116,1) Fatal:...	Free Pascal Правила использования ассемблерных вставок в Free Pascal https://www.cyberforum.ru/ free-pascal/ thread2621213.html program Project1; {$asmMode intel} procedure CalcExp(a: word; var b: byte ); Begin asm mov ax, a mov b, ax end; end;
Free Pascal Последнее слово Дана строка, состоящая из заглавных английских букв и пробелов. Непрерывная последовательность букв называется словом. Слова разделяются друг от друга хотя бы одним пробелом. Вывести последнее слово...	Free Pascal Создать простую анимацию волн для кораблика Напишите пожалуйста анимацию волн для кораблика, не могу справиться уже который день, буду очень благодарен) https://www.cyberforum.ru/ free-pascal/ thread2619526.html
Free Pascal Заменить все положительные элементы матрицы их квадратами, а отрицательные - кубами https://www.cyberforum.ru/ free-pascal/ thread2619259.html 3. Для произвольного двумерного массива F(3;5) заменить все положительные элементы их квадратами, а отрицательные – их кубами. Помогите пожалуйста.	Найти сумму элементов массива между индексами с k1 по k2 включительно Free Pascal Для произвольного одномерного массива D из 10 элементов найти сумму элементов между номерами k1 по k2 включительно, где k1, k2 вводятся с клавиатуры. Не понимаю как делать , помогите.
Free Pascal Разветляющая структура для вычисления функции https://www.cyberforum.ru/ free-pascal/ thread2619237.html Здравствуйте,я новичек в FreePascal, и не понимаю как нужно это сделать. Составить программу разветвляющейся структуры для вычисления заданной функции. y=\begin{cases} \left\| (2tg(x-7)) \right\| +...	Free Pascal Игра динозавр из гугл https://www.cyberforum.ru/ free-pascal/ thread2617627.html Нужно сделать игру, где динозавр прыгает через препятствия и если заденет хотя бы на 1 см препятствие game over
Рекурсия: фрактал Кривая Минковского Free Pascal Необходимо реализовать фрактал - кривая Минковского с помощью рекурсии. Заранее спасибо	Free Pascal Итерационный метод Гаусса-Зайделя Здравствуйте, программа,вроде, работает,но выдает неверный ответ. Не пойму,что не так.Смотрел примеры на форуме ,решения вопроса не нашел. program Zaidel_7; uses crt; https://www.cyberforum.ru/ free-pascal/ thread2616034.html

ZX Spectrum-128

6803 / 4562 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

22.04.2020, 13:36

Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальній элемент массива, а из элементов - Free Pascal - Ответ 14458965

22.04.2020, 13:36. Показов 783. Ответов 1

Метки (Все метки)

Ответ

Pascal

const
  n = 10;
 
var
  max, i, b: integer; 
  a: array[1..n] of integer;
 
begin
  randomize;
  max := 1;
  for i := 1 to n do 
  begin
    a[i] := random(n) + 1;
    write(a[i]:4);
    if a[i] > a[max] then
      max := i;
  end;
  writeln;
  writeln('Max: ', a[max]);
  write('Введите B: ');
  readln(b);
  for i := 1 to n do 
  begin
    if not odd(a[i]) then
      a[i] := a[i] + a[max];
    if not odd(i) then      
      a[i] := a[i] - b;
    write(a[i]:4);
  end;
end.

Вернуться к обсуждению:
Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальній элемент массива, а из элементов Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.04.2020, 13:36

Готовые ответы и решения:

Найти наибольший общий делитель для элементов произвольного одномерного массива
Найти наибольший общий делитель для элементов произвольного одномерного массива целых чисел....

Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива
Program qq; Var i,k:integer; a:array of integer; begin for i:=1 to 10 do read(a); read(k) for...

Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером
/VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным...

Сумма элементов произвольного одномерного массива
Помогите составить программу, которая находит сумму элементов произвольного одномерного массива

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.04.2020, 13:36

Помогаю со студенческими работами здесь

Обработка элементов массива. Является ли элемент массива положительным / четным числом
6.2) Дан массив целых чисел. Выяснить: • является ли s-й элемент массива положительным числом;...

Записать в каждый элемент массива с четным индексом сумму всех предыдущих элементов исходного массива
Дан одномерный массив целых чисел А. Создать новый массив В, занеся в каждый элемент с четным...

Выяснить, является ли сумма элементов одномерного массива четным числом
Ребята, подскажите. Задача: Для целочисленного массива A выяснить, является ли сумма его...

Найти сумму нечётных элементов произвольного одномерного массива
Найти сумму нечётных элементов произвольного одномерного массива

Найти сумму всех положительных элементов произвольного одномерного массива
Найти сумму всех положительных элементов произвольного одномерного массива.

Найти сумму всех отрицательных элементов произвольного одномерного массива
Найти сумму всех отрицательных элементов произвольного одномерного массива.

Наверх