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

July 2021 1 1 Report

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

Answers & Comments

SanGreen74 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]<min) and (a[i]>0) then min:=a[i];
writeln('Количество четных отрицательных чисел ', k);
if min=0 then writeln('Положительных элементов нету') else
writeln('Минимальный положительный элемент массива ', min);
end.

1 votes Thanks 1

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

Answers & Comments

najti summu chisel ryada

nazovite dve lyubye funkcii politiki v gosudarstve i privedite primery

m esli eyo potencialnaya energiya ravna 3 kilo dzhoulya

paskal informatika p o m o g i t e dano naturalnoe chislo najti kolichestvo n

pomogite pozhalujsta menya na urokah pochti ne bylo nichego ne ponimayu

grazhdanin 1 marta polozhil v bank 10000 rublej ezhemesyachno na summu vklada dobavl

dano naturalnoe chislo najti naibolshuyu chetnuyu cifru esli chetnoj cifry net v

dano naturalnoe chislo najti nomer cifry 3 v nem schitaya ot konca

w pr 5 80 g zn 2hcll zncl2 h2 h l

рекомендуемые вопросы

Helpful Links

Helpful Social