Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal 68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. https://www.cyberforum.ru/ pascal/ thread86533.html
68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других. такая вот задачка
Pascal Создать файл, содержащий сведения о товарах, хранящихся на складе: шифр, наименование товара, количество единиц, стоимость единицы. Все записи должны
Создать файл, содержащий сведения о товарах, хранящихся на складе: шифр, наименование товара, количество единиц, стоимость единицы. Все записи должны быть отсортированы в порядке возрастания шифра товара. Иметь возможность по введенному коду корректировки изменить/добавить запись о товаре с шифром ХХХ. кто может решите
Pascal В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним отрицательными В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сжать массив, удалив из него все элементы, модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями. хелп хелп https://www.cyberforum.ru/ pascal/ thread86530.html Pascal Вычислить сумму элементов массива, расположенных между первым и последним нулевыми элементами https://www.cyberforum.ru/ pascal/ thread86529.html
. В одномерном массиве, состоящем из М целочисленных элементов, вычислить сумму элементов массива, расположенных между первым и последним нулевыми элементами. Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы, а потом - все отрицательные (элементы, равные нулю, считать положительными). вот ещё одна...помогите кто что может
Pascal Дана целочисленная матрица. Определить максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.
ребят,нужна помощь...завтра экзамен..выручайте
Pascal Найти в матрице самую длинную цепочку подряд стоящих нулей по горизонтали, вертикали или диагонали. https://www.cyberforum.ru/ pascal/ thread86523.html
98. (10 б.) Матрица L(n,k) состоит из нулей и единиц. Найти в ней самую длинную цепочку подряд стоящих нулей по горизонтали, вертикали или диагонали. 90. (7 б.) Матрица K(m,m) состоит из нулей и единиц. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца, не содержащих единицы, либо сообщить, что таковых нет. 67. (7 б.) Заданы массивы A(m) и B(n). Получить массив...
Pascal Описать запись с именем Note 8. Описать запись с именем Note, содержащую следующие поля: ФИО, номер телефона, день рождения (массив из трех чисел). Написать программу, выполняющую следующие действия:  Ввод данных с клавиатуры в массив, состоящий из пяти элементов типа Note, с упорядочиванием записей по датам дней рождения;  вывод на экран информации о человеке, номер телефона которого введен с клавиатуры, а если... https://www.cyberforum.ru/ pascal/ thread86516.html Все ненулевые элементы матрицы расположить в начале массива Pascal
64. (6 б.) Все ненулевые элементы матрицы D(k,l) расположить в начале массива E(k•l) и подсчитать их количество. 12. В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива, расположенных после минимального по модулю элемента. Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию.
Pascal Записи, прайс-лист. https://www.cyberforum.ru/ pascal/ thread86505.html
не могу построить программу на такое задание на два массива, Фирма AVON предлагает покупателям прайс-лист, в котором указано: наименование товара, страна производитель, стоимость товара. Вывести список тех товаров, чья стоимость выше средней стоимости всех товаров прайс-листа.
Pascal Заданы четыре числа https://www.cyberforum.ru/ pascal/ thread86497.html
Помогите решить задачу и сделать блок-схему. №1 Заданы четыри числа. Найти суму етих чисел и присвоить его значение сменной Р, а сменой Х - частицу от диления величены Р на найбольшее с заданых чисел. Cделайте блок схему плиззз. №2 После окончания футбольного сезону в конце таблици, имея различные количества очков, оказались команды: "Мотор" ; "Вымпел" ; "Металист" и "Старт". По условия из...
Найти предпоследний элемент списка Pascal
Помогите написать процедуру! Включить в список M задаваемых элементов перед последним элементом списка Вот я сделал, процедуры ввода, вывода, удаления списка! А вот с включение не получается Думал так: найти для начала предпоследний элемент списка, а потом вставлять помогите пожалуйста извините за каракули в комментариях uses crt; Type u=^zap; zap=record
Pascal Вывести на экран график линии https://www.cyberforum.ru/ pascal/ thread86481.html
ПАСКАЛЬ! Графические Функции. задача №2 Вывести на экран график линии x^2/a^2-y^2/b^2=1 где а, b вводит пользователь.
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
16.01.2010, 20:30 0

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

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

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
65. (7 б.) Дан массив A(n). Все положительные его элементы поместить в начало массива B(n), а отрицательные элементы – в начало массива C(n). Подсчита Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2010, 20:30
Готовые ответы и решения:

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

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

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

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

1
16.01.2010, 20:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2010, 20:30
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru