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

Цитата:

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

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

ну и если разбираться в самом коде то:

PHP код:


		
			
if M[i] mod 2 =0 then M[i]:=M1[i]

else M[i]:=M2[i];

скорее всего нужно изменить так:

PHP код:


		
			
if M[i] mod 2 =0 then M1[i]:=M[i]

else M2[i]:=M[i];

и еще по поводу этого... если при i=1 будет четное число, то например записываем его в M1 дальше при i=2 нечетное число то его записываем в M2 и получается что он будет под 2 номером! а под первым будет 0.....это как бэ тоже не гуд!

лучше измени на это:

PHP код:


		
			
k=1;

l=1;

for i:=1 to 10 do

if M[i] mod 2 =0 then M1[k]:=M[i] and k=k+1

else M2[l]:=M[i] and l=l+1;

end;

PHP код:


		
			
for i:=1 to 10 do

Write (M1[i]);



for i:=1 to 10 do

Writeln(M2[i]);

тогда уж везде пиши Writeln для перехода на новую строку... или Write чтоб подряд писались

и после проделанного получаем код:

PHP код:


		
			
program Project1;



{$APPTYPE CONSOLE}



uses

SysUtils;

type Mas=array [1..10] of integer;

Mas1=array [1..10] of integer;

Mas2=array [1..10] of integer;

procedure Proc(i:integer; M:Mas; M1:Mas; M2:Mas2);

begin

k=1;

l=1;

for i:=1 to 10 do

if M[i] mod 2 =0 then M1[k]:=M[i] and k=k+1

else M2[l]:=M[i] and l=l+1;

end;



var M:Mas; M1:Mas; M2:Mas2; i:integer;



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 ( i, M, M1, M2,k,l);



for i:=1 to k do

Writeln (M1[i]);



for i:=1 to l do

Writeln(M2[i]);



readln;

end.

не помню как на дельфи делать в условии добавления делать... типа if тото то k=1 и l=1 елсе... поправьте меня если что
Надеюсь правильно))) привет Soherox