Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Принадлежность точки x,y фигуре Здравствуйте, нужно написать программу определяющую принадлежность точки x,y фигуре. https://www.cyberforum.ru/ pascalabc/ thread813142.html	Определить наименьшее время Pascal ABC Даны целые числа m, n (0<m=<12,0=<n<60), указывающие момент времени: m часов, n минут. Определить наименьшее время (число полных минут), которое должно пройти до того момента, когда часовая и минутная стрелки на циферблате: а) совпадут б) расположатся перпендикулярно друг другу.
Pascal ABC Заменить первое число нулем, если оно меньше или равно второму https://www.cyberforum.ru/ pascalabc/ thread813117.html Даны два действительных числа. Заменить первое число нулем, если оно меньше или равно второму, и оставить числа без изменения в противном случае.	Pascal ABC Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать ??? https://www.cyberforum.ru/ pascalabc/ thread813098.html
Pascal ABC Объектно-ориентированное программирование Окно, окно с текстом, система окон, меню, как система выбираемых окон. Программа демонстрирует использование этих объектов.	Pascal ABC Комбинаторные алгоритмы и алгоритмы на гра-фах Разработайте программу нахождения основного дерева в графе методом поиска в ширину. https://www.cyberforum.ru/ pascalabc/ thread813080.html
Pascal ABC Массив отсортировать методом пузырька в порядке возрастания элементов и вывести «Дан одномерный массив целого типа. Получить другой массив, состоящий только из чисел исходного массива, не кратных 5, или сообщить, что таких чисел нет. Полученный массив отсортировать методом пузырька в порядке возрастания элементов и вывести». https://www.cyberforum.ru/ pascalabc/ thread813072.html	Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых Pascal ABC Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых. (через множества нужно сделать программу)
Pascal ABC Вывести сумму всех положетельных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести ноль. дан набор нелулевых целых чисел ; признак его завершения число 0. Вывести сумму всех положетельных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести ноль. помогите пожалуйста writeln('Задание 1:'); repeat write('Введите целое положительное 2='); readln(n); until nk:=0; for i:=1 to n do begin ... https://www.cyberforum.ru/ pascalabc/ thread813044.html	Pascal ABC В одномерном массиве посчитать количество максимальных элементов. https://www.cyberforum.ru/ pascalabc/ thread813029.html ребят кто чем может! желательно с блок схемами Дана функция y = f(x, a). Найти для каждого a.среднее арифметическое отрицательных значений функции x – while, a – for. Решить задачи по обработке массивов: 1) В одномерном массиве посчитать количество максимальных элементов. 2) Задан двумерный массив A (K, N). Поменять местами элементы первого и последнего столбцов Решить задачу по...
паскаль Pascal ABC помогите пожалуйста написать процедуру в паскале: 1)Определить значение, по модулю самое близкое к заданному числу С среди каждых вторых элементов последней четверти массива. 2)Упорядочить положительные элементы первой трети массива по возрастанию абсолютных значений. n=39.	Pascal ABC Найти все двухзначные числа кратные 3(через оператор repeat until) https://www.cyberforum.ru/ pascalabc/ thread813005.html Напишите пожалуйста, как можно проще, т.к не изучали функций как mod

Федя Форточкин

69 / 83 / 33

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

Сообщений: 222

Записей в блоге: 3

20.03.2013, 00:15

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

20.03.2013, 00:15. Показов 1747. Ответов 1

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

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

Решение

если я правильно понял задание, то вот:

Pascal

var
a:array[1..3,1..3] of integer;
i,j:integer;
g,h:integer;
begin
g:=0;
h:=0;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
writeln('a['+IntToStr(i)+','+IntToStr(j)+']');
readln(a[i,j]);
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if ((a[i,j]=0) And (((i mod 2)=0) And ((j mod 2) = 0))) then
g:=g+1
else
begin
if (a[i,j]=0) then
h:=h+1;
end;
end;
end;
writeln('Количество нулевых элементов, стоящих на чётных местах: ' + IntToStr(g));
writeln('Количество нулевых элементов, стоящих на нечётных местах: ' + IntToStr(h));
end.

вместо троек можешь подставить любое нужное тебе кол-во элементов

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.03.2013, 00:15

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

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

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

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

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

	20.03.2013, 00:15

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.03.2013, 00:15

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

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

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

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

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

Наверх