Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Crazy D
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 13
1

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

19.03.2013, 21:46. Просмотров 641. Ответов 1
Метки нет (Все метки)

Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и нечетных местах
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2013, 21:46
Ответы с готовыми решениями:

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

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

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

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

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

1
Федя Форточкин
68 / 82 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
20.03.2013, 00:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

если я правильно понял задание, то вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.
вместо троек можешь подставить любое нужное тебе кол-во элементов
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2013, 00:15

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru