Найти минимальный нечетный элемент матрицы

@Руслан133 · Регистрация: 12.12.2015

Author24 — интернет-сервис помощи студентам

дано массив А(4,5) .найти минимальный непарный Элемент матрицы
Заранее спасибо )!

@Mazilo · 13.12.2015, 15:51

Руслан133,

Pascal

Const n=4; m=5;
Var A : array [1..n, 1..m] of integer;
    i, j, min : integer;
begin
Randomize;
For i:=1 to n do
    begin
    For j:=1 to m do A[i,j]:=random(20)-5;
    end;
For i:=1 to n do
    begin
    For j:=1 to m do Write(A[i,j]:3);
    Writeln;
    end;
min:=0;
For i:=1 to n do
    begin
    For j:=1 to m do
        begin
        If ((A[i,j] mod 2) <> 0) and (min>A[i,j]) then min:=A[i,j];
        end;
    end;
Writeln(min);
Readln;
end.

@Руслан133 · 13.12.2015, 16:00 **[ТС]**

а если массив с целых чисел, что надо изменить?

@Mazilo · 13.12.2015, 16:06

Руслан133, здесь и есть массив целых чисел.

Pascal

1	A : array [1..n, 1..m] of integer

Integer значит, что элементы массива - целые числа.

Найти минимальный нечетный элемент матрицы

Решение

Решение

@Руслан133 0 / 0 / 0 Регистрация: 12.12.2015 Сообщений: 7
		1
	Найти минимальный нечетный элемент матрицы 13.12.2015, 15:32. Показов 2478. Ответов 3 Метки нет (Все метки) дано массив А(4,5) .найти минимальный непарный Элемент матрицы Заранее спасибо )! 0

@Руслан133 0 / 0 / 0 Регистрация: 12.12.2015 Сообщений: 7
	13.12.2015, 16:00 [ТС]	3
	а если массив с целых чисел, что надо изменить? 0

	13.12.2015, 16:06