Топ дня: Drages

Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в массиве



const
n=70;
var
a: array [1..n] of integer;
i, j, m: integer;
begin
for i:=1 to n do
readln(a[i]);
.......
end.




На паскалееее!!!!! кину 3 р арбитраж и +

ап

otvet.mail.ru/#question/81260140

Дан массив, содержащий 30 целых чисел. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти минимально трехзначное число, записанное в этом массиве. Если такого числа нет то нужно вывести сообщение об этом.



const
n=30;
var
a: array [1..n] of integer;
i, j, min: integer;
begin
for i:=1 to n do
readln(a[i]);
.......
end.




На паскалееее!!!!! кину 3 р арбитраж и +

АП

up

program blaBLA;

const
n = 30;

var
a :array [1..n] of integer;
i, sum :integer;
sr :real;

begin

for i:= 1 to n do
readln(a[i]);
sum:= 0;
for i:= 1 to n do
if (a[i] > 99) and (a[i] < 1000) and (a[i] mod 2 = 1) then
sum:= sum + a[i];
if sum = 0 then
writeln('Нечетных трехзначных чисел нет!')
else
sr:= sum/n;
writeln(sr);

end.

шя напишу огромный велосипед из 50 строк

http://znanija.com/task/6280085

Trikz,я часть кода с переменными выше написал их менять нельзя))))))