2 / 2 / 4
Регистрация: 24.11.2009
Сообщений: 76
1

Разделить каждый из элементов на максимальный элемент среди отрицательных элементов соответствующего массива

01.04.2010, 20:53. Показов 1521. Ответов 3
Метки нет (Все метки)

Ввести одномерные массивы X1n1 X2n2 X3n3. Разделить каждый из элементов на максимальный элемент среди отрицательных элементов соответствующего массива. Массивы вывести на экран до и после преобразования (или сообщение о невозможности преобразования). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name) и Vivod1m(A,N,Name); функцию MaxOtr(A,N):<тип массива> – максимум среди отрицательных, которая равна нулю если отрицательных нет; и процедуру Delenie(A,N,Chislo) – деление элементов массива на значением Chislo)

ЗАРАНЕЕ БЛАГОДАРЮ!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2010, 20:53
Ответы с готовыми решениями:

Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент
Ввести одномерные массивы X1(n1), X2(n2) и X3(n3) . Разделить каждый из элементов на максимальный...

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

Найти максимальный элемент среди отрицательных элементов массива
2. Решить задачу: в вещественном массиве найти максимальный элемент среди его отрицательных...

Найти максимальный элемент среди отрицательных элементов массива C
дан массив C(12). Найти максимальный элемент среди отрицательных элементов массива C . определить...

3
0 / 0 / 1
Регистрация: 20.12.2010
Сообщений: 23
14.03.2011, 12:58 2
0
0 / 0 / 1
Регистрация: 20.12.2010
Сообщений: 23
27.03.2011, 18:31 3
апапапа

Добавлено через 12 минут
а вот 4ый варик оттуда
Ввести квадратные матрицы , и . Найти минимальное из 3-х чисел: , , , каждое из которых является следом соответствующей матрицы (суммой диагональных элементов). В матрицах поменять местами первую строку и побочную диагональ. Матрицы вывести до и после преобразования. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,Name), Vivod2m(A,N,Name), а также функции Trace(A,N):<тип массива> – поиск следа и Min(p, q):<тип массива> – минимум среди двух чисел; Zamena(A,N) – замена первой строки и побочной диагонали в матрице)
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
const MaxRazm = 10;
type T1m=array[1..sqr(MaxRazm)] of integer;
T2m=array[1..MaxRazm,1..MaxRazm] of integer;
TName=string[5];
var X1,X2,X3:T2m;
Y:T1m;
N1,N2,N3,Ny:byte;
Trace1,Trace2,Trace3,MinOfTrace,Tr:integer;
 
// ввод двумерного массива
procedure Vvod2m(var A:T2m; var N:byte; const Name:TName);
var i,j:byte;
begin
writeLn('вводите массив ', Name,':');
write('размерность массива N=');
readLn(N);
for i:=1 to N do
for j:=1 to N do
begin
write(Name,'[',i,',',j,']=');
readLn(A[i,j]);
end;
end;
 
// вывод двумерного массива
procedure Vivod2m(const A:T2m; const N:byte; const Name:TName);
var i,j:byte;
begin
writeLn('выводим массив ', Name,':');
for i:=1 to N do
begin
for j:=1 to N do
write(A[i,j]:5);
writeLn;
end;
end;
 
// поиск trace
function Trace(const A:T2m; N:integer):integer;
var b:integer;
i,j:byte;
begin
Tr:=0;
for i:=1 to N do
Tr:=Tr+A[i,i];
for i:=1 to N do
Tr:=Tr+A[i,N-i+1];
Writeln(Tr);
Trace:=Tr;
end;
 
// поиск наименьшего из тройки чисел
function min(const x,y:integer):integer;
begin
if x<y then
min:=x
else
min:=y;
end;
 
// замена первой строки и побочной диагонали матрицы
procedure Zamena(var A:T2m; const N:byte);
var j,buf:byte;
begin
for j:=1 to N do
begin
buf := A[1,j];
A[1,j] := A[N-j+1 ,j];
A[N-j+1 ,j] := buf;
end;
end;
begin
// вводим массивы
Vvod2m(X1,N1,'X1');
Vvod2m(X2,N2,'X2');
Vvod2m(X3,N3,'X3');
 
// выводим массивы до преобразования
// ищем Trace в массивах
Vivod2m(X1,N1,'X1');
Writeln('Trace matrix 1 =');
Trace1:=Trace(X1,N1);
Vivod2m(X2,N2,'X2');
Writeln('Trace matrix 2 =');
Trace2:=Trace(X2,N2);
Vivod2m(X3,N3,'X3');
Writeln('Trace matrix 3 =');
Trace3:=Trace(X3,N3);
Writeln('Trace1=',Trace1);
Writeln('Trace2=',Trace2);
Writeln('Trace3=',Trace3);
// ищем минимальный Trace
MinOfTrace:=min(Trace1,min(Trace2,Trace3));
writeLn('минимальный минимальный Trace равен ',MinOfTrace);
 
// заменяем побочные диагонали в матрицах
Zamena(X1,N1);
Zamena(X2,N2);
Zamena(X3,N3);
 
// выводим матрицы после замены
Vivod2m(X1,N1,'X1');
Vivod2m(X2,N2,'X2');
Vivod2m(X3,N3,'X3');
 
end.
0
0 / 0 / 1
Регистрация: 20.03.2011
Сообщений: 4
27.03.2011, 21:57 4
1. Напишите программу, которая находит сумму максимальных и минимальных элементов трех целочислен-ных одномерных массивов размерностью 15. Данные в массивы должны вводиться с клавиатуры. Для ввода данных в массив напишите процедуру, а для поиска максимального и минимального элементов – функции.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2011, 21:57
Помогаю со студенческими работами здесь

Найти максимальный элемент массива среди отрицательных элементов
в массиве Х(3,5; -7,4; -1,7; 12,9; -5,6; 21,3; -8,6; 4,5; 0,6; 2,5) найти максимальный элемент...

Найти максимальный элемент среди отрицательных элементов вещественного массива
Найти максимальный элемент среди отрицательных элементов вещественного массива А и минимальный...

Определить максимальный элемент массива, среди отрицательных, элементов кратных пяти
надо консольное приложение , без рандомайза функций и процедур в делфи.Прошу помогите)1 курс,завтра...

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


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

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

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