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

[Ната]

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

[Delimiter]

1.
int mass[N];
int schetchik;
for(i=0,schetchik=0;i<N && mass[i]!=a;i++)
if((mass[i]/2)*2==mass[i])
schetchik++;

[Smapt]

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

[Ната]

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

[Smapt]

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

[Ната]

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

[Sinay]

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

[Ната]

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

[Ната]

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

[Sinay]

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

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.

[Ната]

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

[Sinay]

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.

[Sinay]

та 4,эта 3

[Sinay]

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

[Sinay]

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

[Ната]

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

[Ната]

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

[Sinay]

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

[Ната]

спасибо))))

[De-visible]

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