Найти и вывести количество пар элементов массива, произведение которых положительно

@MLG · Регистрация: 23.04.2015

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

Условие такое:
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Найти и вывести количество пар элементов массива, произведение которых положительно, а сумма кратна 7. Под парой подразумевается два подряд идущих элемента массива. Массив заполняется генератором случайных чисел. *В генераторе пользовался формулой m[i]:=a+random(b-a+1)
Что получилось у меня:

Pascal

Program MLG;
const
N = 40;
var
a: array [1..N] of longint;
i, k: longint;
begin
randomize;
for i := 1 to N do
begin
a[i]:=-100+random(201);
write (a[i], '');
end;
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1] ) mod 7 = 0) and (a[i] * a[i + 1] >
0) then
k:=k+1;
writeln('Кол-во=', k);
end.

@volvo · 23.04.2015, 16:23

Pascal

program MLG;
 
const
  N = 40;
 
var
  a: array [1..N] of longint;
  i, k: longint;
 
begin
  randomize;
  for i := 1 to N do
  begin
    a[i] := -100 + random(201);
    write(a[i], ' ');
  end;
  // readln(a[i]);
  k := 0;
  for i := 1 to N - 1 do
    if ((a[i] + a[i + 1] ) mod 7 = 0) and (a[i] * a[i + 1] > 0) then k := k + 1;
   
  writeln;
  writeln('Кол-во=', k);
end.

@MLG · 23.04.2015, 16:37 **[ТС]**

А что это значит? //readln(a[i]);
Не могли бы вы пояснить ошибку?

Добавлено через 29 секунд
А что это значит? //readln(a[i]);
Не могли бы вы пояснить ошибку?

@volvo · 23.04.2015, 16:51

Это не ошибка, просто программа ожидала ввода значения пользователем, и не факт, что обошлось бы без сбоя, ведь после окончания цикла заполнения массива i будет больше чем N, и при попытке обратиться к i-му элементу массива будет сбой. Я закомментировал ввод данных. Весь массив уже был заполнен случайными числами, зачем еще что-то вводить?

@MLG 0 / 0 / 0 Регистрация: 23.04.2015 Сообщений: 33
	23.04.2015, 16:37 [ТС]	3
	А что это значит? //readln(a[i]); Не могли бы вы пояснить ошибку? Добавлено через 29 секунд А что это значит? //readln(a[i]); Не могли бы вы пояснить ошибку? 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,428 Записей в блоге: 8
	23.04.2015, 16:51	4
	Это не ошибка, просто программа ожидала ввода значения пользователем, и не факт, что обошлось бы без сбоя, ведь после окончания цикла заполнения массива i будет больше чем N, и при попытке обратиться к i-му элементу массива будет сбой. Я закомментировал ввод данных. Весь массив уже был заполнен случайными числами, зачем еще что-то вводить? 0

Опции темы

Найти и вывести количество пар элементов массива, произведение которых положительно

Решение