Тип данных, одномерные массивы (вектор) - Pascal

Формулировка задачи:

Тип данных, одномерные массивы (вектор). Помогите пожалуйста решить упражнение: от клавиатуры заполняется таблица целых чисел A(n). Определить количество соседних положительных чисел.

Решение задачи: «Тип данных, одномерные массивы (вектор)»

Листинг программы

program PosNumInVector;
const N = 10000;
uses crt;
var i, j, x, y:Integer;
    a:array [1..N] of Integer;
begin
  clrscr;
  writeln('Введите количество элементов вектора');
  readln(x);
  clrscr;
  for i:=1 to x do
    readln(a[i]);
  clrscr;
  for i:=1 to x do
    if (a[i]>0) and (a[i+1]>0) then
      inc(j);
  write(j);
end.

Объяснение кода листинга программы

Ввод количества элементов вектора в переменную x.
Заполнение вектора a значениями, которые пользователь вводит с клавиатуры.
Перебор элементов вектора a.
Проверка условия для каждого элемента вектора a.
Если условие выполняется, то переменная j увеличивается на единицу.
Вывод значения переменной j на экран.

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы