68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других.

@vivs_21 · Регистрация: 16.01.2010

68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других.

такая вот задачка

@Snoopy · 16.01.2010, 20:08

Pascal

uses crt;
var a,b,c:array[1..100] of integer;
    i,j,n,k1,k2:byte;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=-10+random(20);
  Write(a[i]:4);
 end;
Writeln;
for i:=1 to n do
 if a[i] mod 2=0 then
  begin
   k1:=k1+1;
   b[k1]:=a[i];
  end
 else
  begin
   k2:=k2+1;
   c[k2]:=a[i];
  end;
for i:=1 to k1 do
 Write(b[i]:4);
Writeln('K= ',k1);Writeln;
for i:=1 to k2 do
 Write(c[i]:4);
Writeln('K= ',k2);
 
Readln;
end.

@vivs_21 · 16.01.2010, 20:09 **[ТС]**

чувак,ваще не реально выручаешь)

@maka01 · 12.12.2010, 18:04

1. Дан A(m). Составить массив В в следующем виде А(1), А(1), А(2), А(3), А(3), А(3), А(4), А(5), А(5), А(5), А(5), А(6), …

uses crt;
var a,b,c:array[1..100] of integer;
i,j,n,k1,k2:byte;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
begin
a[i]:=-10+random(20);
Write(a[i]:4);
end;
Writeln;
for i:=1 to n do
if a[i] mod 2=0 then
begin
k1:=k1+1;
b[k1]:=a[i];
end
else
begin
k2:=k2+1;
c[k2]:=a[i];
end;
for i:=1 to k1 do
Write(b[i]:4);
Writeln('K= ',k1);Writeln;
for i:=1 to k2 do
Write(c[i]:4);
Writeln('K= ',k2);
Readln;
end.

не могу найти ошибку

Добавлено через 43 секунды
1. Дан A(m). Составить массив В в следующем виде А(1), А(1), А(2), А(3), А(3), А(3), А(4), А(5), А(5), А(5), А(5), А(6), …

@vivs_21 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 12
		1
	68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. 16.01.2010, 20:00. Показов 1653. Ответов 3 Метки нет (Все метки) 68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. такая вот задачка 0

@vivs_21 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 12
	16.01.2010, 20:09 [ТС]	3
	чувак,ваще не реально выручаешь) 0

@maka01 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 4
	12.12.2010, 18:04	4
	1. Дан A(m). Составить массив В в следующем виде А(1), А(1), А(2), А(3), А(3), А(3), А(4), А(5), А(5), А(5), А(5), А(6), … uses crt; var a,b,c:array[1..100] of integer; i,j,n,k1,k2:byte; begin ClrScr; Randomize; Write('n='); Readln(n); for i:=1 to n do begin a[i]:=-10+random(20); Write(a[i]:4); end; Writeln; for i:=1 to n do if a[i] mod 2=0 then begin k1:=k1+1; b[k1]:=a[i]; end else begin k2:=k2+1; c[k2]:=a[i]; end; for i:=1 to k1 do Write(b[i]:4); Writeln('K= ',k1);Writeln; for i:=1 to k2 do Write(c[i]:4); Writeln('K= ',k2); Readln; end. не могу найти ошибку Добавлено через 43 секунды 1. Дан A(m). Составить массив В в следующем виде А(1), А(1), А(2), А(3), А(3), А(3), А(4), А(5), А(5), А(5), А(5), А(6), … 0

Опции темы