Алгоритмы и программы. Афанасьева Т. В - 118 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

118
c,otr,otr1,pol,pol1,n:integer;
begin
c:=0;
n:=0;
otr:=0;
otr1:=0;
pol:=0;
pol1:=0;
writeln('Поиск первого отрицательного, второго ');
writeln('положительного и предпоследнего нечетного.');
writeln('Введите 10 элементов целочисленного массива');
for i:=1 to 10 do
begin
write(i,' элемент= ');
readln(a[i]);
if a[i]<0 then
begin
otr:=otr+1;
if otr=1 then
otr1:=a[i];
end;
if a[i]>0 then
begin
pol:=pol+1;
if pol=2 then
pol1:= a[i];
end;
if a[i] mod 2 =1 then
begin
c:=n;
n:=a[i];
end;
end;
if otr = 0 then writeln('Отрицательных элементов массива нет ')
else writeln('Первый отрицательный элемент = ', otr1);
if pol <2 then writeln('Положительных элементов массива нет')
else writeln('Второй положительный элемент массива = ', pol1);
if c = 0 then writeln('В массиве нет двух нечетных элементов')
else writeln('Предпоследний нечетный элемент = ',c);
writeln('Для окончания работы нажмите enter');
readln;
end.

Страницы