Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Работа со списком Программа почти закончена не могу понять, как сделать обмен между 2 и 3 элементом списка. В общем должно быть так на ввод подается а1,.., аn, на вывод уже подается такая комбинация а1, а3, а2,а4,а5,..,an program L01; uses crt; type PList = ^TList; TList = record a: integer; next : PList; https://www.cyberforum.ru/ pascalabc/ thread845436.html	Число Пи с точностью Pascal ABC Написать программу которая вычисляет сумму первых членов ряда с точностью до Пи ( т.е. пока величина очередного вычисленного члена ряда не станет меньше Пи, где Пи>0). Число Пи программа должна запрашивать у пользователя. Для какого минимального числа Пи программа позволяет получить верный результат? функция (2n-1)/(2n!)
Pascal ABC Вывести все целые числа, расположенные между данными числами Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел. https://www.cyberforum.ru/ pascalabc/ thread845398.html	Pascal ABC Имеется массив данных об учениках школы: Фамилия, имя, дата рождения, адрес. Вывести данные о тех из них кому уже 16 лет Имеется массив данных об учениках школы: Фамилия, имя, дата рождения, адрес. Вывести данные о тех из них кому уже 16 лет. https://www.cyberforum.ru/ pascalabc/ thread845392.html
Pascal ABC Имеется список абонентов телефонной станции:Фамилия, адрес, телефон. Вывести на экран список абонентов проживающих на улице Бородина Имеется список абонентов телефонной станции:Фамилия, адрес, телефон. Вывести на экран список абонентов проживающих на улице Бородина.	Pascal ABC Процедура сортировки динамических записей. Структура - очередь https://www.cyberforum.ru/ pascalabc/ thread845355.html Нужно написать процедуру сортировки записей (5 полей). Записи заданы динамической структурой - очередь. Сортировку в любую сторону по любому полю (два поля: integer, два: string, одно: char). Помогите пожалуйста.
Pascal ABC Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100 https://www.cyberforum.ru/ pascalabc/ thread845335.html Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась больше 100.	Pascal ABC Дано трёхзначное число, является ли сумма его цифр двухзначным числом Дано трёхзначное число, является ли сумма его цифр двухзначным числом
Pascal ABC Даны 4 целых числа. Найти количество положительных и количество отрицательных https://www.cyberforum.ru/ pascalabc/ thread845333.html Даны 4 целых числа. Найти количество положительных и количество отрицательных	Pascal ABC программа которая печатает true , если точка с координатами (x,y) принадлежит заштрихованной области ,и false в противном случае https://www.cyberforum.ru/ pascalabc/ thread845331.html Составить программу ,которая печатает true,если точка с координатами (x,y) принадлежит заштрихованной области ,и false в противном случае
Дана длина ребра куба a. Найти объем куба и площадь его поверхности Pascal ABC Дана длина ребра куба a. Найти объем куба и площадь его поверхности .	Pascal ABC Дан радиус шара. Найти его объем Дан радиус шара. Найти его объем. https://www.cyberforum.ru/ pascalabc/ thread845320.html

rinatan

0 / 0 / 1

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

Сообщений: 11

Найти количество чётных элементов массива, стоящих на нечётных местах - Pascal ABC - Ответ 4454392

22.04.2013, 20:40. Показов 2675. Ответов 2

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

Студворк — интернет-сервис помощи студентам

Вроде сделал правильно. Проверьте.

Pascal

program z;
var a:array[1..10] of integer; i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(10);
writeln('a[',i,']=',a[i]);
if (a[i] mod 2=0) and (i mod 2=1) then k:=k+1;
end;
writeln('Количество элементов ',k);
end.

Вернуться к обсуждению:
Найти количество чётных элементов массива, стоящих на нечётных местах Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.04.2013, 20:40

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

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
дан массив (B) из (N) элементов.Найти сумму и кол-во четных элементов стоящих на нечетных местах

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах
Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и...

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах соответственно
Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и...

Сосчитать количество четных элементов массива, стоящих на нечетных местах.
Сосчитать количество четных элементов массива, стоящих на нечетных местах. В двух вариантах- с...

	22.04.2013, 20:40

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

22.04.2013, 20:40

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

Найти количество элементов массива, стоящих на нечетных местах
составьте программу,которая запрашивает значение элементов одномерного массива A,состоящего из 10...

Вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах
Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы, вычислить сумму...

Подсчитать количество положительных элементов массива, стоящих на нечетных местах
Задачи на одномерные массивы 5 В одномерном числовом массиве размерности n подсчитать количество...

Найти количество нулевых элементов, стоящих на четных местах
Дан массив элементов длины N. Найти: 1. Количество нулевых элементов, стоящих на четных местах.

Наверх