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

UptoLike

ВУЗ: 

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

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

Рубрика: 

117
{перестановка}
x:=arr[max];
arr[max]:=arr[min];
arr[min]:=x;
writeln ('Измененный массив');
for i:=1 to n do
writeln(' ',arr[i]{:4:2});
readln;
end.
Пример 7.7. В одномерном массиве найти третий нечетный элемент.
program a4;
var
a:array[1..10] of integer;
k,i:integer;
begin
writeln('В одномерном массиве найти третий нечетный эл-т');
writeln('Введите массив из 10 эл-в через пробелы');
k:=0; {количество нечетных элементов}
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if (a[i] mod 2<>0) then
begin
k:=k+1;
if k=3 then
begin
writeln('Результат ',a[i]) ;
exit ; { выход из программы }
end;
end;
end;
if k=0 then writeln('нечетных нет');
readln;
end.
Пример 7.8. Поиск первого отрицательного, второго положи-
тельного и предпоследнего нечетного.
program a8;
var
a:array[1..10]of integer;
i:integer;

Страницы