ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

EndLeSSDre@M

Цитата:

Переписать парные и непарные числа в разные массивы.

че то я не догнал... в условии парные.... а в программе ищешь четные и не четные.... по подробнее плиз

Я думаю все верно, с украинского парные это четные, если я конечно не ошибаюсь

Вот отдебаженный и исправленный код (P.S. Спасибо EndLeSSDre@M)

Код:

{$APPTYPE CONSOLE}
const
  n =10;
type 
  mas=array [1..n] of integer;
var 
  m, m1, m2: mas; 
  i, k, l: integer;

procedure Proc(var m, m1, m2: mas);
  var
    i: integer;
begin
  k:=1; l:=1;
  for i:=1 to n do
    if m[i] mod 2 =0 then
      begin
        m1[k]:=m[i];
        inc(k);
      end
    else
      begin
         m2[l]:=m[i];
         inc(l);
      end;
end;

begin
  m[1]:=2;
  m[2]:=6;
  m[3]:=9;
  m[4]:=11;
  m[5]:=17;
  m[6]:=10;
  m[7]:=19;
  m[8]:=23;
  m[9]:=13;
  m[10]:=1;

  proc (m, m1, m2);

  for i:=1 to k - 1 do write(m1[i],' ');
  writeln;
  for i:=1 to l - 1 do write(m2[i],' ');
  readln;
end.