В каждой строке массива 7 на 8 целого типа расставить по убыванию только чётные значения. Задачу решил не полностью, не знаю как сделать,чтобы выводились только чётные числа.Помогите пожалуйста!!!
program yyyyx;
const
n=7;
m=8;
type
mas = array[1..7, 1..8] of integer;
var
i, j, q, tmp: integer; w: mas;
procedure vvod(var w: mas);
var
i, j: integer;
begin
writeln('дан массив: ');
for i := 1to n dobeginfor j := 1to m dobegin
w[i, j] := random(10);
write(w[i, j]:4);
end;
writeln;
end;
end;
begin
randomize;
vvod(w);
for j:=1to n dofor q:=1to n-1dofor i:=q+1to n doif w[q,j]<w[i,j] thenbegin
tmp:=w[q,j];
w[q,j]:=w[i,j];
w[i,j]:=tmp;
end;
writeln('Преобразованный массив:');
for i:=1to n dobeginfor j:=1to n do
write(w[i,j]:4);
writeln;
end;
end.
APAL
25.06.2013 22:16
Есть такая функция ODD:
Цитата
Odd (функция) ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Проверяет параметр на нечетность.
Объявление: Function Odd(X : Longint) : Boolean;
Режим: Windows, Real, Protected
Замечания: Значение функции Odd(X) равно True, если X - нечетное число.
Пример: Odd.PAS
{Odd.PAS}
▀▀▀▀▀▀▀▀▀▀▀
{ Пример программы для функции Odd }Uses WinCrt;
BeginIf Odd(5) Then WriteLn('Число 5 - нечетное')
Else WriteLn('Число 5 - четное!?');
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.