Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Найти минимальное число и поменять его местами с предпоследним элементом массива https://www.cyberforum.ru/ free-pascal/ thread1358987.html Создать одномерный динамический массив произвольного размера. Ввести значение элементов массива. Найти минимальное число и поменять его местами с предпоследним элементом массива.	Составить программу для нахождения значения функции в точке а Free Pascal Составить программу для нахождения значение функции в точке а. Значение а вводится с клавиатуры. f(x)=\begin{cases}-3x+2\sin x&\text{, }x<-1\\\\\|x\|&\text{, }-1\leq x<0\\\\x\ln (x+1)&\text{, }x\geq...
Free Pascal Перевод числа в двоичную систему счисления https://www.cyberforum.ru/ free-pascal/ thread1358271.html Ув. пользователи, никак не могу написать программу. Сижу пару дней над ней. Задание: Вывести представление данного натурального числа.	Free Pascal Нахождение количества делителей числа Даны 2 числа (А и В). У какого из этих чисел больше делителей? https://www.cyberforum.ru/ free-pascal/ thread1358246.html
Определить количество голов купленного скота Free Pascal 3)Жена дала мужу 100 долларов,на которые он должен купить 100 голов скота.Бык стоит 10 долларов,корова 5 долларов,теленок 50 центов.	Free Pascal На складе шоколад распределен в ящики 16, 17, 21 кг. Сколько ящиков каждого веса? 2)Дано 270кг шоколада.На складе шоколад распределен в ящики 16,17,21 кг.Сколько ящиков каждого веса? https://www.cyberforum.ru/ free-pascal/ thread1357280.html
Free Pascal Найти число с большим количеством знаменателей https://www.cyberforum.ru/ free-pascal/ thread1357279.html 1)заданы два числа A,B.Найти число с большим количеством знаменателей.	Free Pascal 2 маленьких несложных задания в 1 строку Ув. пользователи форума, столкнулся с проблемой: не могу решить 2 оставшихся примера. Знаю,что решение каждого в 1 строчку, но все,что я пробовал - было неверно. Помогите пожалуйста, кто знает: ...
Free Pascal Программа-анкета: использовать файл записей https://www.cyberforum.ru/ free-pascal/ thread1356489.html Добрый день! Помогите пожалуйста с программой. Нужно написать её как файл записей. Я попробовала, но что-то не особо получилось. Пожалуйста, помогите написать программу Program Z9; Procedure...	Free Pascal Условный оператор, который эквивалентен оператору присваивания https://www.cyberforum.ru/ free-pascal/ thread1356487.html Ув. пользователи форума, столкнулся с проблемой: не могу решить 3 маленькие задачи. Помогите пожалуйста, кто знает: №3. Условный оператор,который эквивалентен оператору присваивания x:=a or b and...
Free Pascal Найти числа bk k=1, m, где bk-наименьший элемент k-ого столбца Помогите, кто знает.Даны натуральные числа n,m и действительная прямоугольная матрица aij i=1,n j=1,m. Найти числа bk k=1,m ,где bk-наименьший элемент k-ого столбца.	Free Pascal Остров На клетчатой бумаге нарисована карта острова (клетки острова закрашены). При этом остров является клетчато-выпуклой фигурой, то есть каждая горизонтальная или вертикальная линия на карте либо не... https://www.cyberforum.ru/ free-pascal/ thread1356330.html

ZX Spectrum-128

6806 / 4565 / 4817

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

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

23.01.2015, 15:14

Найти максимальный элемент динамического массива и умножить этот элемент на каждый в этом массиве - Free Pascal - Ответ 7140977

23.01.2015, 15:14. Показов 3923. Ответов 3

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

Ответ

Pascal

var
  n,m,i, j, max: integer;
  a:array of array of integer;
begin
  randomize;
  n:=10;  m:=8;
  setlength(a,n,m);
  writeln('Исходный массив:');
  for i := 0 to n-1 do
    begin
      for j := 0 to m-1 do
        begin
          a[i,j]:=random(n*n);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  max:=a[0,0];
  for i := 0 to n-1 do
    for j := 1 to m-1 do
      if a[i, j] > max then
        max:=a[i,j];
  writeln('Максимум: ',max);
  writeln('Преобразованный массив:');
  for i := 0 to n-1 do
    begin
      for j := 0 to m-1 do
        begin
          a[i,j]:=a[i,j]*max;
          write(a[i, j]:8);
        end;
      writeln;
  end;
  setlength(a,0,0);
  readln;
end.

Вернуться к обсуждению:
Найти максимальный элемент динамического массива и умножить этот элемент на каждый в этом массиве Free Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.01.2015, 15:14

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

Каждый четный элемент массива умножить на минимальный элемент, а нечетный на максимальный
В одномерном массиве, состоящем из n целых элементов, каждый четный элемент умножить на минимальный...

Найти мах элемент массива и его номер и умножить этот элемент на 5
Помогите найти ошибку в программе!!!!! срочно!!!! Задача: найти мах элемент массива А(N) и его...

Найти максимальный элемент в каждой строке массива и номер столбца, в котором этот максимальный элемент находится
Найти максимальный элемент в каждой строке массива и номер столбца, в котором этот максимальный...

Найти максимальный элемент массива x(15), поменять местами этот максимальный элемент с индексом 4
поможете с курсовым ?

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.01.2015, 15:14

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

Найти в этом массиве минимальный элемент N и максимальный элемент M
Ввести с клавиатуры массив целых чисел. Найти в этом массиве минимальный элемент N и максимальный...

Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до максимального
Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м....

Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива
Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец,...

Умножить каждый элемент матрицы на максимальный элемент
Доброе время суток. помогите. Дана матрица 4х5. Умножить каждый элемент матрицы на максимальный...

Наверх