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

Форум АНТИЧАТ (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.

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

Код:



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.

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

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

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

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

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

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