Добавлено (2009-05-26, 2:23 Pm)
---------------------------------------------
когда будут результаты?

Program C2;
const N=10;
var A:array [1..n] of integer;
i,min: integer;
begin
For i:=1 to n do Readln (A[i]);
min:=A[1];
For i:=2 to n do
if not (a[i]<180) and(a[i]<min) then min:=A[i];
writeln ('min=',min);
readln
end.

товарищи, можно ли по другому решить задачу? вот как я написал

min:=200;
for i:1 to n do
if a[i]>=180 and a[i]<min then
a[i]:=min
write (min);
end.

Добавлено (2009-05-26, 3:37 Pm)
---------------------------------------------
и еще, я неправильно решил 1 или 2 из а, 1 из б и сделал 3 из ц, нормально ли это или как?

Добавлено (2009-05-26, 4:22 Pm)
---------------------------------------------
помогите еще с с2.... масси 30 элементов...могут принимать значения от -20 до 20 это сведения о температуре за каждый день ноября. и нужно составить алгоритм который подсчитывает и выводит на экран среднюю температуру среди дней когда были заморозки (температура ниже 0) гарантируется что хотя бы в один день была отрицательная температура. начало:
N=30
DIM A(N) as integer
Dim I,X,Y as integer
Dim S as singles
for i=1 to n
input a(i)
nex i
......