Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Сформировать массив https://www.cyberforum.ru/ pascalabc-net/ thread1891153.html
Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала . Поменять местами первый и минимальный элементы.
PascalABC.NET Подсчитать сумму цифр
Введены 3 строки. Подсчитать сумму цифр, кратных 3, в каждой из них (создать функцию, подсчитывающую сумму цифр, кратных 3, в строке).
PascalABC.NET Видео плеер https://www.cyberforum.ru/ pascalabc-net/ thread1891105.html
Проигрывание аудио фаилов полно, а видео не встречал. Есть возможность видео встроить?
PascalABC.NET Переставить в обратном порядке числа, находящиеся между максимальным и минимальным значением массива https://www.cyberforum.ru/ pascalabc-net/ thread1891083.html
Поменять в обратном порядке местами числа находящиеся между максимальным и минимальным значением. Первая часть(нахождение max и min), помогите пожалуйста. const n = 20; var a: array of integer; max, min, i, imax, imin, m,c: integer;
Напечатать таблицу умножения в системе счисления с основанием R PascalABC.NET
Число R принадлежит диапазону от 2 до 16 включительно. То есть нужна программа, в которую можно вбить число от 2 до 16 и результатом будет таблица умножения с этим числом в основании.
PascalABC.NET Кол-во арифметических прогрессий https://www.cyberforum.ru/ pascalabc-net/ thread1890793.html
Даны натуральные числа N и K напишите программу, которая определит количество возрастающих арифметических прогрессий длины К, которые можно составить из натуральных чисел от 1 до N. Например, при N = 5, K = 3 есть четыре таких прогрессии: {1,2‚3); {1,3‚5}; {2,3,4}; (3,4‚5}. Пример: Input Output 5 3 4
PascalABC.NET Рекурсия, деления квадратов и их поворот. Всем добрый день, подскажете, как можно повернуть этот квадрат? на различное количество градусов? program asd; uses graphabc; var x,y,r,d,m:integer; var i:integer; procedure ris(x1,y1,r1:integer); procedure drawfig(x, y, s, n: integer); https://www.cyberforum.ru/ pascalabc-net/ thread1890620.html PascalABC.NET Сортировка слов строки по возрастанию доли согласных
Здравствуйте. Задание: ввод строки (s) латинскими буквами, вывод новой строки (s2) с упорядоченными по возрастанию доли согласных слов из строки s. Ограничение на ввод только латинских букв работает, доли согласных, позиции и длины слов определяются. Не могу разобраться непосредственно с сортировкой слов в строку s2. Подскажите, пожалуйста. var L, i, k, a, lslv: integer; {a - позиция...
PascalABC.NET Написать программу со стандартными блоками Дана действительная матрица D (n*m).Найти номера столбцов все элементы которых равны 0 https://www.cyberforum.ru/ pascalabc-net/ thread1890516.html PascalABC.NET В службе социального обеспечения (СОБЕС) имеется список пенсионеров. О каждом пенсионере содержатся сведения: В службе социального обеспечения (СОБЕС) имеется список пенсионеров. О каждом пенсионере содержатся сведения: фамилия, имя, отчество, адрес (район, улица, дом, квартира), место и дата рождения, общий стаж работы и стаж работы на "вредном производстве", пол, зарплата, из которой была начислена пенсия, размер пенсии. Создать массив из записей. Выдать следующие сведения: по данным о пенсионере... https://www.cyberforum.ru/ pascalabc-net/ thread1890304.html
Определить сумму элементов в тех строках матрицы, которые содержат хотя бы один отрицательный элемент PascalABC.NET
Надо методом процедур и функции решить. Знаю как в циклах сделать. Дана целочисленная прямоугольная матрица. Определить сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.
PascalABC.NET Ошибка времени выполнения: Входная строка имела неверный формат https://www.cyberforum.ru/ pascalabc-net/ thread1890197.html
Program n_11; var a, b, z : boolean; begin Write ('a='); Readln (a); Write ('b='); Readln (b); if a<b then;
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,046
29.12.2016, 07:00 0

Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из - PascalABC.NET - Ответ 9954749

29.12.2016, 07:00. Показов 3750. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Deftec как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function ИндексыНечётных(var a : array of Integer) : array of Integer :=
  a.Select((v, i) -> odd(v) ? i : -1).Where(v -> v > -1).ToArray;
 
begin
  Randomize;
  var a := ArrRandomInteger(ReadLnInteger('Размер массива a:'), 0, 99);
  var b := ArrRandomInteger(ReadLnInteger('Размер массива b:'), 0, 99);
  WriteLn('Созданы массивы:');
  Write('a : '); a.Println;
  Write('b : '); b.Println;
  Write('Индексы нечётных элементов массива a : '); ИндексыНечётных(a).Println;
  Write('Индексы нечётных элементов массива b : '); ИндексыНечётных(b).Println;
end.


Вернуться к обсуждению:
Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из PascalABC.NET
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2016, 07:00
Готовые ответы и решения:

Заданы три одномерных массива разной размерности Для каждого из массивов определить повторяющиеся элементы
ЕСТЬ ОСНОВНОЙ КОД ПРОГРАММЫ,НО ВЫДАЕТ ОШИБКУ.Пожалуйста,помогите! Sub main() Dim A() As Double...

Даны два одномерных массива разной размерности. найти элементы принадлежащие и тому и другому массиву
Помогите пожалуйста! Даны два одномерных массива разной размерности. найти элементы принадлежащие...

Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.
Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.

В файле исходных данных содержатся значения элементов 2-ух одномерных массивов разной размерности
Ошибка в 23 строке не могу исправить... помогите пожалуйста Program Massiv; Uses...

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

Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов
Дано два одномерных массива, создать третий массив,который содержит элементы первого и второго...

Даны два произвольных одномерных массива действительных чисел М1 и М2. Сформировать слиянием этих массивов упорядоченный массив М3
Помогите с работой на Borland C++ 5.02:Даны два произвольных одномерных массива действительных...

Объединить два одномерных массива разной длины
как объеденить два одномерных массива разной длины? Заранее спасибо!

Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых А[i] = B[i].
Помогите решить 1.Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых...

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