Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером - Free Pascal

Узнай цену своей работы

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

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

Решение задачи: «Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером»

textual
Листинг программы
  1. uses crt;
  2. var a:array of integer;
  3.     n,i,k:integer;
  4. begin
  5. clrscr;
  6. randomize;
  7. write('Размер массива n=');
  8. readln(n);
  9. setlength(a,n);
  10. for i:=0 to n-1 do
  11.  begin
  12.   a[i]:=-10+random(21);
  13.   write(a[i]:4);
  14.  end;
  15. writeln;
  16. k:=0;
  17. for i:=1 to n-1 do
  18. if (a[i]<0)and odd(i) then k:=k+1;
  19. write('Количество отрицательных элементов с четными номерами=',k);
  20. readln
  21. end.

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

  1. Установка начального размера массива n.
  2. Инициализация массива a случайными отрицательными числами.
  3. Вывод на экран содержимого массива a.
  4. Инициализация переменной k для подсчета количества отрицательных элементов с четными порядковыми номерами.
  5. Цикл по индексам массива a.
  6. Проверка условия для подсчета отрицательных элементов с четными порядковыми номерами.
  7. Увеличение переменной k на единицу при выполнении условия.
  8. Вывод на экран количества отрицательных элементов с четными порядковыми номерами.
  9. Ожидание ввода пользователем для завершения программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.364 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы