Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером - Free Pascal
Формулировка задачи:
Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером.
Решение задачи: «Для динамического массива подсчитать количество его отрицательных элементов с четным порядковым номером»
textual
Листинг программы
- uses crt;
- var a:array of integer;
- n,i,k:integer;
- begin
- clrscr;
- randomize;
- write('Размер массива n=');
- readln(n);
- setlength(a,n);
- for i:=0 to n-1 do
- begin
- a[i]:=-10+random(21);
- write(a[i]:4);
- end;
- writeln;
- k:=0;
- for i:=1 to n-1 do
- if (a[i]<0)and odd(i) then k:=k+1;
- write('Количество отрицательных элементов с четными номерами=',k);
- readln
- end.
Объяснение кода листинга программы
- Установка начального размера массива
n
. - Инициализация массива
a
случайными отрицательными числами. - Вывод на экран содержимого массива
a
. - Инициализация переменной
k
для подсчета количества отрицательных элементов с четными порядковыми номерами. - Цикл по индексам массива
a
. - Проверка условия для подсчета отрицательных элементов с четными порядковыми номерами.
- Увеличение переменной
k
на единицу при выполнении условия. - Вывод на экран количества отрицательных элементов с четными порядковыми номерами.
- Ожидание ввода пользователем для завершения программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д