Форум программистов, компьютерный форум, киберфорум
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
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
22.04.2020, 13:36 0

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

22.04.2020, 13:36. Показов 783. Ответов 1
Метки (Все метки)

Ответ

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
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
0
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/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным...

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2020, 13:36
Помогаю со студенческими работами здесь

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru