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

65. (7 б.) Дан массив A(n). Все положительные его элементы поместить в начало массива B(n), а отрицательные элементы – в начало массива C(n). Подсчита

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

65. (7 б.) Дан массив A(n). Все положительные его элементы поместить в начало массива B(n), а отрицательные элементы – в начало массива C(n). Подсчитать количество тех и других.


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

Данный массив A (n). Все положительные его элементы поместить в начало массива B (n), а все отрицательные - в начало массива C (n). Подсчитать количес
Данный массив A (n). Все положительные его элементы поместить в начало массива B (n), а все...

Все положительные элементы поместить в начало массива В(n), а отрицательные элементы — в начало массива С(n)
Ребята. Помогите с задачей пожалуйста. Дан массив А(n). Все положительные его элементы поместить...

Все положительные элементы массива поместить в начало массива B, а отрицательные — в начало C
помогите не как не могу понять как записать код для задачи (Дан числовой массив A размера N. Все...

Дан числовой массив A размера N. Все четные его элементы поместить в начало массива B, а нечетные элементы - в конец
#include <stdio.h> #include <malloc.h> #include <stdlib.h> #include <locale.h> int main (int...

1
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
16.01.2010, 20:30 2
Лучший ответ Сообщение было отмечено vivs_21 как решение

Решение

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
35
36
uses crt;
var a,b,c:array[1..100] of integer;
    i,j,n,k,p:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i]:4);
 end;
Writeln;
for i:=1 to n do
 if a[i]<0 then
  begin
   inc(k);
   c[k]:=a[i];
  end
 else
  begin
   inc(p);
   b[p]:=a[i];
  end;
for i:=1 to p do
 Write(b[i]:4);
Writeln;
Writeln('Kol= ',p);
Writeln;
for i:=1 to k do
 Write(c[i]:4);
Writeln;
Writeln('Kol= ',k);
Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2010, 20:30

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

Дан массив: перестановка положительные элементы переставить в начало массива, отрицательные - в конец
Дан массив: перестановка положительные элементы переставить в начало массива, отрицательные - в...

Перенести в начало массива все его отрицательные элементы, затем нулевые и в конце все положительные
Перенести в начало массива А(n) все его отрицательные элементы, затем нулевые и в конце все...

Сдвинуть все отрицательные элементы с в начало массива,сохраняя их порядок между собой, а все положительные элементы
Дан целочисленный список с количеством элементов 2n, не содержащий нулей. Сдвинуть все...

Все отрицательные элементы массива А необходимо поставить в начало массива, а положительные в конец
Здравствуйте! Нужна небольшая помощь с массивами в Assembler. Задача в следующем: Все отрицательные...


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

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

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