Форум АНТИЧАТ - помогите пожалуйста с массивами

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - помогите пожалуйста с массивами (https://forum.antichat.xyz/showthread.php?t=98544)

помогите пожалуйста с массивами в паскале

1. Найти количество четных элементов одномерного массива до первого встречного числа равного наперед заданному числу а.
Сечение крыши имеет форму полукруга с радиусом R м. Сформировать таблицу, содержащую длины опор, устанавливаемых через каждые R/5 м.
3. Напишите программу анализа значений температуры больного за сутки: определите минимальное и максимальное значение, среднее арифметическое. Замеры температуры производятся шесть раз в сутки и результаты вводятся с клавиатуры в массив Т.
4. В массиве Х(1;n) каждый элемент равен о, 1 или 5. Представить элементы массива так, чтобы сначала располагались все нули, затем все единицы, а затем все пятерки. Дополнительного массива не заводить.
Помогите пожалуйста!!!

Код:

int mass[N];

int schetchik;

for(i=0,schetchik=0;i<N && mass[i]!=a;i++)

   if((mass[i]/2)*2==mass[i])

     schetchik++;

Ната, а язык-то какой нужен?

всмысле какой???

Писать это на чем, си? паскаль? ...

ааа, паскаль!

))))
девушки...

кто нибудь знает как это решать?

помогите решить хотя бы 3 и 4 задачи, пожалуйста очень надо!!!

Код:

Сортировка простым выбором.



const n=6;

var a:array[1..n] of integer;

    i,j,ind,mx:integer;

begin

   {ввод элементов массива}  

for i:=1 to n do begin

  write('   a[',i,']='); readln(a[i]); end;

        writeln;



  for j:=n downto 2 do begin

    mx:=a[1]; ind:=1;

     for i:=2 to j do

      if a[i]>mx then

        begin mx:=a[i]; ind:=i; end;

   a[ind]:=a[j]; a[j]:=mx;

  end;



{вывод элементов массива} 

 for i:=1 to n do

  writeln('a[',i,']=',a[i]);

end.