Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Удалить пробелы из текста Помогите соединить 2 программы Условие: Дан текст. Удалить в нем все лишние пробелы, оставив между словами не более двух пропусков. Вычислить сумму кодов символов каждого четного слова. Программа 1: Дан текст. Удалить в нем все лишние пробелы, оставив между словами не более двух пропусков. uses crt; var s,sn: string; i: integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread426544.html	задача в литературном жанре Turbo Pascal придумать задачу в литературном жанре и составить программу в Паскале. помогите
Turbo Pascal Упорядочить массив по неубыванию элементов первого столбца Дан двумерный массив , содержащий 5 строк и 3 столбца. Элементами массива являются целые числа. Упорядочить массив по неубыванию элементов первого столбца. https://www.cyberforum.ru/ turbo-pascal/ thread426508.html	Turbo Pascal Определить, есть ли в заданной строке повторяющиеся подряд символы Разработать программу, которая определяет, есть ли в заданной строке повторяющиеся подряд символы. https://www.cyberforum.ru/ turbo-pascal/ thread426502.html
Turbo Pascal Сортировка строк матрицы по min элементу С Паскалем знаком плохо, но на лекции мы писали примерную задачу, дома же попробовав, реализовать записанное в тетради, я был в шоке :( программа не рабоает, так что даже примера для решения задачи у меня нет, попытки исправить ошибки не увенчались успехом, прошу помощи. Задача по сути сложнее чем я написал, но оставшиеся фишки я постараюсь реализовать сам, ну и надеюсь получиться (поиск числа в...	Turbo Pascal Отсортировать записи в типизированном файле. https://www.cyberforum.ru/ turbo-pascal/ thread426485.html Дан типизированный файл student.txt В него записаны ученики и их баллы. Программа создает дерево и выводит его. Задача в том, чтобы отсортировать записи по баллам (убывание - возрастание) и вывести в текстовый файл. Нужна сортировка и вывод. Помогите. Текст программы: program sort_vivod; uses crt; type student = record name : string; score : integer;
Turbo Pascal Работа с данными комбинированного типа (Record) Задать комбинированный тип, который будет описывать адрес (континент, страна, город, количество населения в городе). Распечатать названия городов на каждом континенте, в которых проживает больше всего людей. https://www.cyberforum.ru/ turbo-pascal/ thread426466.html	Множини(Set) Turbo Pascal type days=(su,mo,tu,we,th,fr,sa); workdays=mo. .fr; ar wd : workdays; t : boolean; Переменные t придать значение true, если wd выходной день.
Turbo Pascal Найти N-ое по порядку натуральное число с различными цифрами Найти N-ое по порядку натуральное число с различными цифрами. Первым таким числом считайте 1. Например, 100-ое по порядку число с различными цифрами это 123 https://www.cyberforum.ru/ turbo-pascal/ thread426462.html	Turbo Pascal «Программа разветвленной структуры» https://www.cyberforum.ru/ turbo-pascal/ thread426461.html Заданы два натуральных числа a, b которые обозначают число и месяц не високосного года. Вычислить порядковый номер даты, начиная отсчет с начала года. Например, число 2.03 (2 марта) имеет порядковый номер 61.
Turbo Pascal Комбинаторные алгоритмы Разработайте программу, реализующую нахождение кратчайшего пути между заданными городами (алгоритм Дейкстры). Срочно	Turbo Pascal Подсчитать сколько чисел в строке Подсчитать сколько чисел в строке.Используя тип даных string https://www.cyberforum.ru/ turbo-pascal/ thread426450.html

chizhov

1 / 1 / 1

Регистрация: 11.01.2012

Сообщений: 10

12.01.2012, 00:14

В одномерном массиве найти номер первого четного числа - Turbo Pascal - Ответ 2378092

12.01.2012, 00:14. Показов 2039. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

program p_1;
uses crt;
var h:array [1..5] of byte;
i,m:byte;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
h[i]:=random(100)+1;
writeln(h[i]:5);
end;
writeln;
m:=0;
for i:=1 to 5 do begin
if h[i] mod 2=0 then begin
m:=i; break; end; end;
write('номер первого четного->',m);
end.

Вернуться к обсуждению:
В одномерном массиве найти номер первого четного числа Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.01.2012, 00:14

Готовые ответы и решения:

Найти номер первого четного числа в массиве
В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных...

Найти номер первого четного числа последовательности чисел
решить задачу двумя способами 1. С массивом(При решении способом с массивом вывести все введенные...

Выполнить перестановку первого четного элемента в одномерном массиве в конец массива
Написать программу ,которая с помощью подпрограммы выполнит перестановку первого четного элемента в...

Найти номер первого отрицательного элемента в одномерном массиве деленного на 5 с остатком 2
найти номер первого отрицательного элемента в одномерном масиве деленного на 5 с остатком 2. Все...

	12.01.2012, 00:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.01.2012, 00:14

Помогаю со студенческими работами здесь

В одномерном массиве найти номер третьего чётного элемента.
ДАН ОДНОМЕРНЫЙ МАССИВ А(N). НАЙТИ НОМЕР ТРЕТЬЕГО ЧЕТНОГО ЭЛЕМЕНТА МАССИВА. ПОЖАЛУЙСТА НАПИШИТЕ...

Циклы: найти номер первого четного числа последовательности с нечетным индексом
Найти номер первого четного числа последовательности натуральных чисел, заданных пользователем с...

Дано натуральное число n, действительные числа q1, q2, ... qn. Найти номер первого четного члена последовательности q1, q2, ... qn
Добрый вечер. Пожалуйста помогите написать код небольшой программы на С++. Условие: Дано...

Определить номер четного элемента в одномерном массиве
Ребят, помогите. Я в программировании нулейший, поскольку учусь на химика. Однако данный предмет в...

Наверх