Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
FAIRE_18
0 / 0 / 1
Регистрация: 08.03.2015
Сообщений: 4
#1

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

10.03.2015, 14:40. Просмотров 295. Ответов 2
Метки нет (Все метки)

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

помогите, пожалуйста....
http://www.cyberforum.ru/pascalabc/thread813158.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2015, 14:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти количество нулевых элементов массива, стоящих на четных и нечетных местах соответственно (Pascal ABC):

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

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

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

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

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

2
Sway
6 / 6 / 13
Регистрация: 27.01.2015
Сообщений: 24
10.03.2015, 17:11 #2
Лучший ответ Сообщение было отмечено FAIRE_18 как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
var 
  mas:array[1..100,1..100] of integer;
  i,j:integer;
  n,m,ch,nch:integer;
begin
 ch:=0;nch:=0;
 repeat
  write('Введите n:');read(n);
 until n in [1..100];
 repeat
  write('Введите m:');read(m);
 until m in [1..100];
 
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   write('mas[',i,',',j,'] = ');read(mas[i,j]);
  end;
 end;
 
 writeln;
 
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(mas[i,j]:3);
 writeln;
 end;
 
 writeln;
 
 for i:=1 to n do
 begin
  for j:=1 to m do 
  begin
   if mas[i,j]=0 then
   begin
    if j mod 2 = 0 then
     inc(ch)
    else
     inc(nch);
   end;
  end;
 end;
 
 write('На четных местах - ',ch,',   на нечетных - ',nch);
end.
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
10.03.2015, 17:23 #3
Лишние операторные скобки и ";". Не ошибка, но лучше так:
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
32
33
34
35
36
37
38
var 
  mas: array [1..100, 1..100] of integer;
  i, j: integer;
  n, m, ch, nch: integer;
begin
  ch:=0; nch:=0;
  repeat
    write('Введите n:'); read(n)
  until n in [1..100];
  repeat
    write('Введите m:'); read(m)
  until m in [1..100];
 
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('mas[',i,',',j,'] = '); read(mas[i,j])
      end;
 
  writeln;
 
  for i:=1 to n do
    begin
      for j:=1 to m do write(mas[i,j]:3);
      writeln
    end;
 
  writeln;
 
  for i:=1 to n do
    for j:=1 to m do 
      if mas[i,j]=0 
        then if j mod 2 = 0 
          then inc(ch)
          else inc(nch);
 
  write('На четных местах - ', ch, ', на нечетных - ', nch)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2015, 17:23
Привет! Вот еще темы с решениями:

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

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

Найти сумму элементов одномерного числового массива, стоящих на четных местах
Условие: найти сумму элементов одномерного числового массива, стоящих на четных...

Вычислить количество четных элементов одномерного массива расположенных на нечетных местах
Вычислить количество четных элементов одномерного массива расположенных на...


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

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

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