задача с процедурами

[Вероника_94]

Даны два одномерных массива целых чисел. Определить в каком из них меньше элементов с четными значениями. Вывести найденный массив и соответствующее пояснение. Использовать подпрограмму для нахождения количества четных элементов

[ByAlex]

Сообщение от Вероника_94

Даны два одномерных массива целых чисел. Определить в каком из них меньше элементов с четными значениями. Вывести найденный массив и соответствующее пояснение. Использовать подпрограмму для нахождения количества четных элементов

Вот, Виктория, вам программа, правда на скорую руку без оптимизаций, но работает -

program Project1;
uses
  SysUtils;
const
  n=6;
var
  Mas1,Mas2:array[1..n] of Integer;
  i,j,kol1,kol2:Integer;
  procedure schet;
  begin
    kol1:=0;
    kol2:=0;
    for i:=1 to n do
    begin
      if ((Mas1[i] mod 2)=0) then
        Inc(kol1);
      if ((Mas2[i] mod 2)=0) then
        Inc(kol2);
    end;
  end;
begin
  writeln('Input the first massive - ');
  for i:=1 to n do
  begin
    write('Mas1[',i,'] = ');
    readln(Mas1[i]);
  end;
  Writeln;
  writeln('Input the second massive - ');
  for i:=1 to n do
  begin
    write('Mas2[',i,'] = ');
    readln(Mas2[i]);
  end;
  schet;
  writeln('Result - ');
  if kol1>kol2 then
  begin
    Writeln('Chetnyh elementov bolsche v massive 1:');
    for i:=1 to n do
      write(Mas1[i],' ');
  end
  else
  if kol1<kol2 then
  begin
    Writeln('Chetnyh elementov bolsche v massive 2:');
    for i:=1 to n do
      write(Mas2[i],' ');
  end
  else write('Kolichestvo chetnyh elementov v massivah ravno!!!');
  readln;
end.

[Вероника_94]

а мне нужно на паскале(((

[Вероника_94]

но всё равно спасибо))

[ByAlex]

Сообщение от Вероника_94

но всё равно спасибо))

Вот на паскале -

uses crt;
const
  n=6;
var
  Mas1,Mas2:array[1..n] of Integer;
  i,j,kol1,kol2:Integer;
  procedure schet;
  begin
    kol1:=0;
    kol2:=0;
    for i:=1 to n do
    begin
      if ((Mas1[i] mod 2)=0) then
        Inc(kol1);
      if ((Mas2[i] mod 2)=0) then
        Inc(kol2);
    end;
  end;
begin
  writeln('Input the first massive - ');
  for i:=1 to n do
  begin
    write('Mas1[',i,'] = ');
    readln(Mas1[i]);
  end;
  Writeln;
  writeln('Input the second massive - ');
  for i:=1 to n do
  begin
    write('Mas2[',i,'] = ');
    readln(Mas2[i]);
  end;
  schet;
  writeln('Result - ');
  if kol1>kol2 then
  begin
    Writeln('Chetnyh elementov bolsche v massive 1:');
    for i:=1 to n do
      write(Mas1[i],' ');
  end
  else
  if kol1<kol2 then
  begin
    Writeln('Chetnyh elementov bolsche v massive 2:');
    for i:=1 to n do
      write(Mas2[i],' ');
  end
  else write('Kolichestvo chetnyh elementov v massivah ravno!!!');
  readln;
end.

[Katus]

program BM;
{$apptype console}
uses
	SysUtils;
type
	tarray = array of integer;
var
	n,i: byte;
	a,b: tarray;

procedure readnums(m: tarray; n: byte; var res: byte);
begin
res:=0;
for n:=n-1 downto 0 do
	if m[n] mod 2 = 0 then
		res:=succ(res);
end;

procedure writenums(var m: tarray; n: byte);
var 
	i: byte;
begin
setlength(m, n);
writeln('Input ',n,' nums in this massive');
for i:=0 to n-1 do
	read(m[i];
end;

begin
write('N is ');
read(n);
writenums(a,n);
writenums(b,n);
writenums(a,n,i);
writenums(a,n,n);
if i>n then
	writeln('First massive have more el-ts whose mod 2 is 0 then second')
else
	writeln('Second massive have more el-ts whose mod 2 is 0 then first');
readln;
end.

[Вероника_94]

спасибо вам большое )))