Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Stasia_lime
15 / 15 / 0
Регистрация: 21.01.2012
Сообщений: 51
1

Процедуры. Даны 2 одномерных массива.Определить, в каком из них максимальный элемент меньше

06.02.2012, 21:53. Просмотров 939. Ответов 1
Метки нет (Все метки)

Даны 2 одномерных массива.Определить в каком из них максимальный элемент меньше. Вывести найденный элемент и соответствующие пояснения.
Использовать подпрограммы для формирования массивов и для нахождения максимального элемента.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 21:53
Ответы с готовыми решениями:

Даны два квадратных массива А и В.Вывести на экран тот из них, у которого след меньше(сумма элементов главной диагонали).
Двумерные массивы.(с процедурами и функциями). Даны два квадратных массива А и...

Даны два двухмерных массива размерности n x n. Вывести на экран тот из них у кого сумма элементов главной диагонали меньше.
Решите пожалуйста задачу поставленную передо мной вот условия:Даны два...

Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след меньше (сумма элементов главной диагонали)
Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след...

Определить, в каком столбце массива сумма элементов меньше: в первом или в последнем
1) В каком столбце массива сумма элементов меньше: в первом или в последнем;...

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить...

1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5116 / 1554 / 950
Регистрация: 23.01.2011
Сообщений: 3,185
Завершенные тесты: 1
06.02.2012, 22:24 2
Лучший ответ Сообщение было отмечено Stasia_lime как решение

Решение

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
57
58
const
 n = 5;
type
 TArr = array[1..n, 1..n] of integer;
var
 arrA, arrB: TArr;
 max1, max2: integer;
 
procedure Massiv(var arr: TArr);
var
 i, j: integer;
begin
 randomize;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure Maximal(arr: TArr; var max: integer);
var
 i_max, j_max, i, j: integer;
begin
 i_max:=1; j_max:=1;
  for i:=1 to n do
   for j:=1 to n do
    if arr[i, j] > arr[i_max, j_max] then
     begin
      i_max:=i;
      j_max:=j;
     end;
 max:=arr[i_max, j_max];
 writeln(max);
end;
 
procedure MinMax(max1, max2: integer);
begin
  if max1 > max2 then write('Второй максимальный меньше!')
   else if max1 < max2 then write('Первый максимальный меньше!')
    else write('Элементы равны!');
end;
 
begin
 writeln('Первая матрица: ');
 Massiv(arrA);
 writeln('Её максимальный элемент: ');
 Maximal(arrA, max1);
 writeln('Вторая матрица: ');
 Massiv(arrB);
 writeln('Её максимальный элемент: ');
 Maximal(arrB, max2);
 MinMax(max1, max2);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 22:24

Дан массив Х(16). Умножить все элементы данного массива на максимальный и вывести результаты в таком порядке, в каком были даны исходные данные.
Дан массив Х(16).умножить все элементы данного массива на максимальный ,и...

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 10х8, элементами которой являются целые случайные...

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru