Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива https://www.cyberforum.ru/ pascal/ thread445727.html
{Определить среднее арифметическое положительных чисел вне минимального и максимального значений массива т.е числа между ними не учитывать} uses crt; const n=10; var a:array of integer; smax,smin,min,max,i:integer; rez,sum,sum1,sred:real; begin writeln('Ïîèñê ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà ìàññèâà'); writeln('Ââåäèòå â îäíîé ñòðîêå ýëåìåíòû ìàññèâà ',n,' öåëûõ ÷èñåë:');
Pascal Составить программу изменения местами строк и колонок
Задан двумерный целочисленный массив А из N строк и N столбцов (1<=N<=50). Составить программу изменения местами строк и колонок для получения массива с элементамимглавной диагонали, расположенных в порядке возрастания. Например для n=3 и массива 123 __________________________789 __________________________456 выводится 123 ________________________________________456...
Pascal Составить программу вывода всех перемещений элементов множества. Задано множество {1,2,...,n}. Составить программу вывода всех перемещений элементов множества. Например: для N =3 получаем {3,1,2},{2,3,1},{2,1,3},{3,2,1},{1,3,2},{1,2,3} https://www.cyberforum.ru/ pascal/ thread444942.html Pascal Тема: МАССИВЫ (ДВУМЕРНЫЕ) Каждое из N предприятий города выпускает 5 наименований продукции. Известен объем выпуска продукции каждого наименования каждым предприятием и стоимость единицы продукции. Для каждого предприятия определить его долю стоимости производимой продукции каждого типа в процентах. Буду признательна за какую либо помощь. https://www.cyberforum.ru/ pascal/ thread444824.html
Проверка на транзитивность бинарного отношения. Правильно ли условие? Pascal
Проверка на транзитивность бинарного отношения. Получена матрица А*А. Далее выполняется условие проверки матрицы на транзитивность. Правильно ли оно? status := True; for i := 1 to size do for j := 1 to size do for k := 1 to size do if (tr <> 1) and (tr <> 1) and (tr <> 1) then status := False;
Pascal Расшифровка "Афинная система подстановок". Есть вот почти готовая программа , которая умеет шифровать и почти расшифровывать. Всё вроде как нужно написано , формулы брал с википедии. Но почему-то не правильно расшифровует.. const N=31; A=9; B=13; var i,j,s: integer; alf,alf1,otext,shifr: string; mas: array of integer; begin alf:='абвгдежзиклмнопрстуфхцчшщъыьэюя'; alf1:='АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; https://www.cyberforum.ru/ pascal/ thread444510.html
Pascal Деревянный алгоритм решения задачи коммивояжёра https://www.cyberforum.ru/ pascal/ thread444407.html
Нужно составить программу в паскале, где следует заполнить двумерный(зеркальный по диагонали) массив рандомом или вводом с клавиатуры, а в подпрограмме найти эйлеров цикл и вывести его последовательность пунктов обхода. В общем пройти каждый пункт 1 раз и вернуться в начало Написал код основной программы для заполнения матрицы: Program D; var n,i,j: integer; a: array of integer; begin...
Pascal Пусть задан список студентов. Элемент списка содержит: фамилия, имя, № курса, № группы, оценки по пяти экзаменах последней сессии. Пусть, фамилии студ
Пусть задан список студентов. Элемент списка содержит: фамилия, имя, № курса, № группы, оценки по пяти экзаменах последней сессии. Пусть, фамилии студентов в списке упорядочены по алфавиту, удалите подсписок студентов, начиная с фамилии F1 и заканчивая фамилией F2 включительно ето задача на односторонние списки
Pascal Работа с записями. Образовать список групп и студентов-одногруппников. Добрый день! Требуется помощь с доработкой программы. Было задание: Описать переменную "студент", содержащую: имя, фамилию, отчество студента, название учебного заведения, номер группы. Создать список студентов (N>10). Определить фамилии студентов, учащихся в одной и той же группе, в одном и том же заведении. Моя программа: По согласованию с автором, код временно спрятан - до момента,... https://www.cyberforum.ru/ pascal/ thread444362.html Pascal Определить все четные элементы массива и вывести их на экран массив задан 5 элементами с клавиатуры. определить все четные элементы и вывести их на экран.если таких нет то вывести "таких элементов нет" https://www.cyberforum.ru/ pascal/ thread444116.html
Pascal Разработать программу с реализацией динамических структур
Помогите разработать программу с реализацией динамических структур с блок-схемой. 5. Создать файл, содержащий сведения о телефонах абонентов. Каждая запись содержит поля: фамилия, имя, отчество абонента, год установки телефона, номер телефона. На печать и в отдельный файл вывести: по фамилии абонента выводится номер телефона; определяется количество установленных телефонов с ХХХХ года. Номер..
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
14.02.2012, 21:47 0

Вывести на экран все отрицательные элементы массива кратные 13 - Pascal - Ответ 2490261

14.02.2012, 21:47. Показов 3799. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
 n = 13;
var
 arr: array[1..n] of integer;
 i: integer;
begin
 writeln('Массив: ');
  for i:=1 to n do
   begin
    arr[i]:=random(-666, 666);
    write(arr[i], ' ');
   end;
 writeln;
 writeln('Отрицательные элементы, кратные 13: ');
  for i:=1 to n do
   if (arr[i] < 0) and (arr[i] mod 13 = 0) then write(arr[i], ' ');
end.


Вернуться к обсуждению:
Вывести на экран все отрицательные элементы массива кратные 13 Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2012, 21:47
Готовые ответы и решения:

Вывести на экран все элементы массива, кратные М
Задание в турбо паскале. Звучит следующим образом: Вывести на экран все элементы массива, кратные...

Вывести на экран все элементы массива, кратные 3 и 5
Дан целочисленный массив , состоящий из n элементов. Вывести на экран все элементы кратные 3 и 5.

Вывести на экран все отрицательные элементы массива
Какие необходимы действия, чтобы вывести на экран все отрицательные элементы массива? И почему при...

Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество
задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с клавиатуры) вывести на...

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

Вывести на экран все отрицательные четные числа кратные 5
Вывести на экран все отрицательные четные числа кратные 5 из диапозона от A до B (A=&lt;B).

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

Вывести на экран все отрицательные элементы массива, стоящие на нечетных местах, и их количество
Дан массив размера N. Вывести на экран все отрицательные элементы массива, стоящие на...

Заменить все отрицательные элементы массива, не кратные 3, противоположными им числами
Данная последовательность целых чисел. размерность массива вводится с клавиатуры. Заменить все...

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