Обработка одномерных массивов

[vbchristy46]

помогите пожалуйста....никак не могу разобраться....
делать не в delphi, а в паскале...


1. Подсчитать сколько дней в ноябре было дней с температурой ниже, выше и равной 0.

2. Дан массив. Определить наибольшее из нечетных и количество четных чисел, входящих в массив.

3. Дан массив . Сжать его , удалив из него все элементы, модуль которых находится в интервале [a,b]

[romec1]

1 ое че-то не понятно, а на с++ не катит?

[ROMA2PVT]

-I-

Uses
   CRT;
var
  a:array [1..30] of integer;
  i,n,nize,viche,nul:integer;
begin
Clrscr;
randomize;
write('Введите количество элементов:=');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
   begin
      a[i]:=random(10)-3;
      write(a[i]:3,' ')
   end;
nize:=0;
       for i:=1 to n do
            if a[i]<0 then
               begin
                 inc(nize);
               end;
               writeln;
writeln ('Количество дней с температурой ниже 0:=',nize);
         viche:=0;
         for i:=1 to n do
                  if a[i]>0 then
                     begin
                       inc(viche);
                     end;
writeln ('Количество дней с температурой выше 0:=',viche);
                     nul:=0;
               for i:=1 to n do
                      if a[i]=0 then
                          begin
                             inc(nul);
                          end;
writeln ('Кол-во дней с температурой равной 0:=',nul);
                         readkey;
     end.

[vbchristy46]

спасибо за задачу)))

[DoDge_VipeR]

3

i:=1;
while i<=n do 
begin
if (x[i]>a) and (x[i]<b)
then begin
for k:=i to n-1 do
x[k]:=x[k+1];
n:=n-1;
end
else inc(i);
end;

[vbchristy46]

у меня вторая задача частично решена...не получается найти максимальное нечётное число....
что неправильно???

Program  mas_4;
uses crt;
Var a:array[1..1000]  of integer;
k1,k2,p,n,i,max:integer;
Begin
Writeln('введит размерность массива'); Readln(n);
Randomize;
k1:=0; k2:=0;
For i:=1 to n do
begin
a[i]:=random(100); write(a[i]:4);

if a[i] mod 2= 0 then k1:=k1+1 else k2:=k2+1;
end;


begin
max:=k2;
for i:=1 to n do begin
if k2+1>k2 then max:=k2+1;
end;
end;



Writeln;
Writeln('количество четных чисел=',k1);
Writeln('максимальное нечетное число=',k2+1);
Readln;
End.

[ROMA2PVT]

Uses
   CRT;
var
  a:array [1..30] of integer;
  i,n,max,imax,kol:integer;
begin
Clrscr;
randomize;
kol:=0;
write('Введите количество элементов:=');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
   begin
      a[i]:=random(10)-3;
      write(a[i]:3,' ');
      if not odd(a[i]) then
      inc(kol);
   end;
   max:=-MaxInt;
   imax:=1;
       for i:=1 to n do
            if (odd(a[i])) and (a[i]>max) then
            begin
             max:=a[i];
             imax:=i;
             end;
               writeln;
writeln ('MAX[',imax,']:=',max);
writeln;
writeln('Количество чётных элементов:=',kol);
                         readkey;
     end.

Если не ошибся то будет так.Устал....

[vbchristy46]

большое спасибо!!!!!!!!!!!))