Помощь - Поиск - Пользователи - Календарь
Полная версия: В каждой строке массива 7 на 8 целого типа расставить по убыванию только чётные значения
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Fotins
В каждой строке массива 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 := 1 to n do
  begin
    for j := 1 to m do
    begin
      w[i, j] := random(10);
      write(w[i, j]:4);
    end;
    writeln;
  end;
end;

begin
  randomize;
  vvod(w);
  for j:=1 to n do

    for q:=1 to n-1 do
    
      for i:=q+1 to n do
      
      if w[q,j]<w[i,j] then
      begin
        tmp:=w[q,j];
        w[q,j]:=w[i,j];
        w[i,j]:=tmp;
      end;
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(w[i,j]:4);
    writeln;
  end;
end.
APAL
Есть такая функция ODD:

Цитата
Odd (функция)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Проверяет параметр на нечетность.

Объявление:
Function Odd(X : Longint) : Boolean;

Режим:
Windows, Real, Protected

Замечания:
Значение функции Odd(X) равно True, если X - нечетное число.

Пример:
Odd.PAS


 {Odd.PAS}
 ▀▀▀▀▀▀▀▀▀▀▀
 { Пример программы для функции Odd }

 Uses WinCrt;

 Begin
  If Odd(5) Then WriteLn('Число 5 - нечетное')
            Else WriteLn('Число 5 - четное!?');
 End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.