Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти наибольший (наименьший) элемент двумерного массива Найти наибольший (наименьший) элемент двумерного массива. Указать его индексы https://www.cyberforum.ru/ turbo-pascal/ thread418534.html задачи (3 штуки)!! Turbo Pascal
хотя бы ссылки с подобными задачами скиньте. Большой Спасич заранее) 1)Напечатать таблицу значений функции Y=X2+1 во введенном диапазоне 2)Вывести на печать все пифагоровы числа, не превыш-ающие...
Turbo Pascal Переделайте задачу вычисления выражения из if в case program may7; var x,y,rez:integer; begin writeln('введите x'); readln(x); if (0<=x) and (x<=3) then sqr(x); rez:=sqr(x); writeln(rez); if (x>3) or (x<0)then writeln(4); https://www.cyberforum.ru/ turbo-pascal/ thread418526.html Turbo Pascal Вывести в третий массив сумму соответствующих элементов первого ив торого массивов даны два двумерных массива, заполненные случайными однозначными и двухзначными числами. Вывести в третий массив сумму соответствующих элементов первого ив торого массивов. Вывести в одномерный массив... https://www.cyberforum.ru/ turbo-pascal/ thread418508.html
Задача с файлами Turbo Pascal
Даны файлы f1,f2,f3,f4,f5 типа real. Организовать обмен между файлами в соответствии со следующей схемой: f1->f3; f2->f4; f3->f5; f4->f2; f5->f1. Разрешается использо-вать только один...
Turbo Pascal Оператор выбора case. Найти число дней в месяце Написать алгоритм нахождения числа дней в месяце, если даны: Номер месяца N -целое число a, равное 1 для високосного гада и равное 0 в противном случае. Решить нужно через оператор выбора case . https://www.cyberforum.ru/ turbo-pascal/ thread418506.html
Turbo Pascal Кто может описание к строчкам написать? https://www.cyberforum.ru/ turbo-pascal/ thread418485.html
мне нежно описание каждой строчки,что в них происходит вот прога. program z5; uses crt; const Map:array of Byte = ((1, 1, 1, 1, 1, 1, 0),
Turbo Pascal Домножить каждый разряд числа на три
Дано трехзначное число. Домножить каждый разряд на три. Если получившееся число то умножения каждого разряда больше 10, то извлечь из него корень. Ответ записать задом наперед.
Turbo Pascal Найти значение функции F(x)=xsinx найти значение функции F(x)=xsinx https://www.cyberforum.ru/ turbo-pascal/ thread418464.html Turbo Pascal Создание типизированного файла вещественных чисел. https://www.cyberforum.ru/ turbo-pascal/ thread418457.html
Нужно: Создать типизированный файл вещественных чисел, задать с клавиатуры номер компоненты N, с которой необходимо удалить K элементов файла. Вывести компоненты исходного и усеченного файлов....
Turbo Pascal Создание библиотечного модуля.
Помогите пожалуйста с созданием библиотечного модуля. Вот то, что он должен делать: Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для работы со...
Turbo Pascal Разработка много модульных программ с выделением процедур https://www.cyberforum.ru/ turbo-pascal/ thread418455.html
В прямоугольной матрице в каждом столбце поставить на первое место максимальный элемент столбца и, если среди полученных элементов первой строки не окажется элементов, по модулю меньших заданной...
17 / 16 / 11
Регистрация: 23.12.2011
Сообщений: 89
27.12.2011, 01:37 0

Найти номер первого четного числа в массиве - Turbo Pascal - Ответ 2332960

27.12.2011, 01:37. Показов 1469. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program by_goodvin1709;
var
a:array[1..20] of Integer;
i,j:Integer;
begin
For i:=1 to 20 do
a[i]:=Random(100);
 
For j:=1 to 20 do
begin
if a[j] mod 2 = 0 then 
begin
Writeln('Превое четное число в масиве:№',j,' Ето число: ',a[j]);
j:=20;
end;
end;
end.


Вернуться к обсуждению:
Найти номер первого четного числа в массиве Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2011, 01:37
Готовые ответы и решения:

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

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

Найдите номер первого четного числа последовательности чисел
Здесь нужен цикл с четчиком С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите...

Найдите номер первого четного числа последовательности чисел
Сказано что задача решаеться через цикл с четчиком. С клавиатуры вводиться n заданных чисел a1,...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2011, 01:37

Найти номер первого четного элемента массива
Пожалуйста, помогите решить!!!

Найти номер максимального четного элемента в массиве
Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и...

Массив. Увеличить все четные числа на исходное значение первого четного числа
помогите, пожалуйста, решить задачу. дан целочисленный массив размера N. увеличить все четные числа...

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

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