Массив из 10 элементов, диапазон от -5 до 20. Найти 1) кол-во четных отрицательных 2)...

Question

Массив из 10 элементов, диапазон от -5 до 20.
Найти 1) кол-во четных отрицательных
2) минимальное среди положительных

Comments

От -5 до 20 это диапазон индексов или диапазон чисел?

---

... чисел, видимо. про индексы нам ничего не говорили на уроке, если не ошибаюсь.

Answer 1

Var a:array[1..10] of integer; 
i,k,min:integer; 
begin 
k:=0; 
for i:=1 to 10 do begin 
read(a[i]); 
if (a[i] mod 2=0) and (a[i]<0) then </span>
k:=k+1; 
if a[i]>0 then min:=a[i]; 
end; 
for i:=1 to 10 do 
if (a[i]0) then min:=a[i]; 
writeln('Количество четных отрицательных чисел ', k); 
if min=0 then writeln('Положительных элементов нету') else 
writeln('Минимальный положительный элемент массива ', min); 
end. 

Comments

Спасибо большое!