0 / 0 / 0
Регистрация: 13.10.2018
Сообщений: 1
1

Найти количество чисел в массиве кратным 3 и НЕкратным 5 (не могу исправить ошибку)

13.10.2018, 08:18. Показов 509. Ответов 1
Метки нет (Все метки)

я сделал что если mod 3 = 0 тогда x:=x+1 то есть будет определять количество, но если встретится в массиве 0 он также прибавит 1 т.к. 0 mod 3 = 0 верно

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
program zzz;
 
var
  a: array[1..100] of integer;
  i, n: integer;
  x, y: real;
 
begin
  randomize;
  writeln('Введите количество элементов в массива');
  writeln;
  readln(n);
  writeln;
  for i := 1 to n do
  begin
    a[i] := random(10);     
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to n do
  begin
    
    if a[i] mod 3 = 0 and a[i]<>0 then x := x + 1;
    if a[i] mod 5 > 0 then y := y + 1;
  end;
  writeln;
  writeln('Количество чисел кратных 3 = ', x);
  writeln;
  writeln('Количество чисел не кратных 5 = ', y);
end.
В строчке if a[i] mod 3 = 0 and a[i]<>0 then x := x + 1; выдаёт ошибку "операция "<>" не применима к типам boolean и integer". Как мне её исправить? а и ещё преподаватель сказал чтобы обязательно сделал с помощью and. Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2018, 08:18
Ответы с готовыми решениями:

посчитать количество символов в массиве, не могу найти ошибку, поссмотрите плз)
19. Дан массив символов. Подсчитать, сколько в нем букв r, k, t. #include &lt;stdio.h&gt; #include...

Не могу исправить ошибку в массиве(
Доброго времени суток. Условие задачи: 61. Описать процедуру Gauss(A,M,N,i1,i2,X), преобразующую...

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

Найти количество четных чисел в первом массиве и количество нечетных чисел во втором массиве
Даны два массива целых чисел А (15) и В (15). Найти количество четных чисел в первом массиве и...

1
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
13.10.2018, 08:52 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program zzz;
 
var
  a: array[1..100] of integer;
  x, i, n: integer;
 
begin
  randomize;
  x := 0;
  write('Введите количество элементов в массива: ');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(30);     
    write(a[i]:4);
    if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then 
      x := x + 1;
  end;
  writeln;
  writeln('Количество чисел кратных 3 и не кратных 5:  ', x);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.10.2018, 08:52
Помогаю со студенческими работами здесь

Не могу найти ошибку с подсчетом суммы элементов в интервале[a,b] в динамическом одномерном массиве массиве.
#include &lt;iostream&gt; #include &lt;conio.h&gt; #include &lt;stdlib.h&gt; #include &lt;time.h&gt; #include &lt;iomanip&gt;...

Не могу найти\исправить ошибку
Делаю телефонный справочник (думаю всех у универах заставляют :D) Ну вот, я вроде сделал, но не...

Не могу найти и исправить ошибку в коде
#include &lt;iostream&gt; #include &lt;locale.h&gt; using namespace std; double masA={0}; long...

Не могу найти и исправить ошибку в программе
Считываю из тхт файла строки, в каждой строки 7 значений разделенных &quot;;&quot; считываю в stringlist...


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

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

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