Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 12
1

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

16.01.2010, 20:00. Показов 1400. Ответов 3
Метки нет (Все метки)

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


такая вот задачка
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2010, 20:00
Ответы с готовыми решениями:

Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n)
Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив...

Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечётные - в массив M(n)
Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечётные - в массив...

Все четные элементы целочисленного массива K (n) поместить в массив L (n), а нечетные-в массив M (n)
Формулировка задачи: Все четные элементы целочисленного массива K(n) поместить в массив L(n), а...

Все четные элементы целочисленного элемента K поместить в массив L, а нечетные в массив M
Все четные элементы целочисленного элемента K(n) поместить в массив L(n), а нечетные в массив M(n)....

__________________
3
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
16.01.2010, 20:08 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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.
1
0 / 0 / 0
Регистрация: 16.01.2010
Сообщений: 12
16.01.2010, 20:09  [ТС] 3
чувак,ваще не реально выручаешь)
0
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2010, 18:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Массив: Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в массив K(n).
Все нечетные элементы целочисленного массива A(n) поместить в начало массива L(n), а нечетные – в...

Все четные элементы целочисленного массива поместить в массив
Все четные элементы целочисленного массива поместить в массив , а нечетные – в массив ....

В массиве выделить все четные и нечетные числа, подсчитать количество тех и других
В массиве из N<=10 целых чисел выделить все четные и нечетные числа, подсчитать количество тех и...

Сформировать массив Y, в который поместить сначала все четные, а затем все нечетные элементы массива Х
Пользователь вводит размер n динамического массива Х, а затем заполняет его целыми числами....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.