Массив из 10 элементов, диапазон от -5 до 20. Найти 1) кол-во четных отрицательных 2) минимальное среди положительных
Массив из 10 элементов, диапазон от -5 до 20.
Найти 1) кол-во четных отрицательных
2) минимальное среди положительных
Гость
Ответ(ы) на вопрос:
Гость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
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.
Не нашли ответ?
Похожие вопросы