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

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

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

 

1.

Code:

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 задачи, пожалуйста очень надо!!!

 

Code:

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

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.

 

это какая задача?)))

 

Code:

const n=6;
var a:array[1..n] of real;
   i:integer;s,min,max:real;
begin
   {ввод элементов массива}  
for i:=1 to n do begin
  write('   a[',i,']='); readln(a[i]); end;
        writeln;

  min:=a[1];max:=min;s:=a[1];

 for i:=2 to n do begin
s:=s+a[i];
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];end;
writeln ('min= ',min,' max= ',max,' crednaja= ',s/n);
end. 

 

та 4,эта 3

 

на программиста небось учишься?)

 

и в следущий раз пости в эту тему:"Студентам с лабораторными сюда"
специально для этого создали

 

спасибо огромное))))

 

нет слава богу не на програмиста)))) хорошо в следующий раз туда писать буду))))

 

не за что,тут девушкам всегда рады,удачи на сессии

 

спасибо))))

 

Closed.
спец. для блондинок:
Есть закрепленная тема, где следует задавать подобные вопросы.