помогите пожалуйста с массивами в паскале 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++;
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.