Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Модуль программы Нужно написать модуль этой программы (модуль отдельно) Помогите program lab10; uses crt; const n = 10; type books = record shifr: string; fio: string; https://www.cyberforum.ru/ pascalabc-net/ thread2390722.html Нарисовать блок-схему по коду PascalABC.NET
program x; var f,e,n,k:real; i,s:byte; begin; write('s='); read(s); e:=0; k:=-0.3862942; for i:=1 to s do begin;
PascalABC.NET Проблема с реализацией движения графического объекта Загорелся идеей создания змейки на Паскале, и столкнулся с проблемой реализации движения (сначала квадратика, но потом дорисую змею). Движения осуществляется быстрыми отрисовкой, закрашиванием и сдвигом квадрата, но на деле квадратик очень быстро мерцает:( Помогите, пожалуйста, устранить мерцания. uses crt, GraphABC; var i, x, y, j: integer; points: array of point; k: char; ... https://www.cyberforum.ru/ pascalabc-net/ thread2390700.html PascalABC.NET Сформировать массив, каждый элемент которого равен сумме элементов главной и побочной диагонали соответствующего столбца Дан двумерный массив размером 5*5, заполненный случайными числами. Сформировать одномерный массив, каждый элемент которого равен сумме элементов главной и побочной диагонали соответствующего столбца. https://www.cyberforum.ru/ pascalabc-net/ thread2390608.html
PascalABC.NET Что это такое (<=) на Pascal ABC?
что это такое (<=) на Pascal ABC ?
PascalABC.NET Статистика - сколько раз встречаются буквы https://www.cyberforum.ru/ pascalabc-net/ thread2390163.html
В файле input.txt задан текст. Напишите программу, которая посчитает статистику - сколько раз встречается буква A, сколько - B и т.д. При этом большие и маленькие латинские буквы считать одинаковыми. В файле могут быть сколь угодно длинные строки. Длина файла не превышает 100 Кб. Входные данные Во входном файле записан текст, состоящий из английских букв (больших и маленьких), знаков...
PascalABC.NET Посчитать количество компонент связности в неориентированном графе В неориентированном графе посчитать количество компонент связности. В графе могут быть петли и кратные ребра. Входные данные. Во входном файле INPUT.TXT записаны сначала два числа N и M, задающие соответственно количество вершин и количество ребер (1<=N<=100, 0<=M<=10000), а затем перечисляются ребра. Каждое ребро задается номерами вершин, которые оно соединяет. Выходные данные. В... https://www.cyberforum.ru/ pascalabc-net/ thread2390130.html Файл: В первую строку выходного файла выведите число -1, если треугольника с данными сторонами не существует... PascalABC.NET
Васе на дом задали задачу по геометрии, по трем сторонам треугольника вычислить его периметр и площадь. Но он очень не любил геометрию и попросил вас решить эту задачу. Формат входных данных Во входном файле записано 3 натуральных числа через пробел, не превосходящих 1000 - длины сторон треугольника. Формат выходных данных В первую строку выходного файла выведите число -1, если треугольника...
PascalABC.NET Написать программу для учета сведений об ассортименте обуви в магазине фирмы Написать программу для учета сведений об ассортименте обуви в магазине фирмы. Структура записи - артикул, наименование, количество, стоимость одной пары. Артикул начинается с буквы Ж для женской обуви, М для мужской, Д для детской. Подскажите в чём ошибка и почему вводить можно только на английском, тоже самое с цифрами Program obuv1; uses crt; type obuv=record artikul:string; ... https://www.cyberforum.ru/ pascalabc-net/ thread2390126.html PascalABC.NET Учет сведений о количестве изделий собранных сборщиками цеха за неделю... написать программу для учета сведений о количестве изделий собранных сборщиками цеха за неделю. каждая запись содержит поля фамилия, имя, отчество сборщика, количество собранных изделий, день недели. Код написан, но нужно добавить процедуры и функции, у меня с этим небольшие проблемы, помогите, пожалуйста. Но не нужно переделывать мой код полностью, просто добавить процедуры и функции. пример... https://www.cyberforum.ru/ pascalabc-net/ thread2390006.html
Написать внешний модуль нахождения наименьшего из трёх чисел . Ввести 6 значений a,b,c,d,e,f PascalABC.NET
Написать внешний модуль нахождения наименьшего из трёх чисел . Ввести 6 значений a,b,c,d,e,f. Найти наименьшее для троек значение (a,b,d) (a,b,e) (d,c,f) (b,c,f) и вывести их на экран.
PascalABC.NET Вычисление первой и второй производной табличной функции с помощью полинома Ньютона Написать программу вычисления первой и второй производной табличной функции с помощью полинома Ньютона помогите найти пж исходник https://www.cyberforum.ru/ pascalabc-net/ thread2389876.html
2308 / 1419 / 516
Регистрация: 07.04.2017
Сообщений: 4,721
19.01.2019, 22:00 0

Даны 2 вектора А(10), В(15). Тип элемента целый Сформировать вектор С из положительных элементов векторов А и В - PascalABC.NET - Ответ 13255068

19.01.2019, 22:00. Показов 1035. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var A := ReadArrInteger(10);
  var B := ReadArrInteger(15);
  
  A.Concat(B)
  .Where(i-> i>0 )
  .Println
  .Where(i->not odd(i))
  .Sum.Print;
end.


Вернуться к обсуждению:
Даны 2 вектора А(10), В(15). Тип элемента целый Сформировать вектор С из положительных элементов векторов А и В PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2019, 22:00
Готовые ответы и решения:

Сформировать третий вектор из нечетных элементов первого вектора и положительных элементов обоих векторов
Дан целочисленный вектора A(n) и целочисленный вектор B(m). Сформировать третий вектор из нечетных...

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

Если в обеих векторах есть элементы, кратные 4, то сформировать вектор С из положительных элементов обеих векторов
Помогите пожалуйста с программой на С. ((( Даны вектор А и B. Если в обеих векторах есть...

Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная
Заполнить вектор значениями положительных элементов вектора C. Размерность вектора C произвольная....

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

Даны 2 вектора определить у какого вектора наибольшее количество положительных элементов
Даны 2 вектора определить у какого вектора наибольшее количество положительных элементов. Программу...

Заданный вектор А, состоящий из n элементов. Переставить компоненты вектора, размещенные после самого элемента вектора А
Заданный вектор А, состоящий из n элементов. Переставить компоненты вектора, размещенные после...

Сформировать Вектор из общих элементов двух векторов
Условие: Заданы 2а(два) вектора произвольного размера. Сформировать Вектор из общих элементов обоих...

Сформировать вектор, состоящий из одинаковых элементов исходных векторов
Ввести два вектора X и Y, состоящих из 10-ти элементов целого типа. Сформировать вектор S,...

Сформировать вектор с элементов другого вектора
вот суть задачи: Задано вектор Т(n), n&lt;=12. Сформировать вектор У с элементов вектора Т, которые...

Создать вектор X из положительных элементов вектора A
Если кому не сложно-:help: Создать вектор x={xk} из положительных элементов вектора a={an}.

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