Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
помогите пожалуйста с массивами в паскале |
29.12.2008, 20:53
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
помогите пожалуйста с массивами в паскале
1. Найти количество четных элементов одномерного массива до первого встречного числа равного наперед заданному числу а.
Сечение крыши имеет форму полукруга с радиусом R м. Сформировать таблицу, содержащую длины опор, устанавливаемых через каждые R/5 м.
3. Напишите программу анализа значений температуры больного за сутки: определите минимальное и максимальное значение, среднее арифметическое. Замеры температуры производятся шесть раз в сутки и результаты вводятся с клавиатуры в массив Т.
4. В массиве Х(1;n) каждый элемент равен о, 1 или 5. Представить элементы массива так, чтобы сначала располагались все нули, затем все единицы, а затем все пятерки. Дополнительного массива не заводить.
Помогите пожалуйста!!!
Последний раз редактировалось Ната; 29.12.2008 в 21:39..
|
|
|
29.12.2008, 21:37
|
|
Banned
Регистрация: 08.04.2005
Сообщений: 446
Провел на форуме:
2187381
Репутация:
518
|
|
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++;
|
|
|
|
29.12.2008, 21:53
|
|
Познающий
Регистрация: 29.01.2008
Сообщений: 82
Провел на форуме:
373690
Репутация:
88
|
|
Ната, а язык-то какой нужен?
|
|
|
|
29.12.2008, 21:56
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
всмысле какой???
|
|
|
|
29.12.2008, 22:02
|
|
Познающий
Регистрация: 29.01.2008
Сообщений: 82
Провел на форуме:
373690
Репутация:
88
|
|
Писать это на чем, си? паскаль? ...
|
|
|
|
29.12.2008, 22:10
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
ааа, паскаль!
|
|
|
|
30.12.2008, 00:40
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
))))
девушки...
|
|
|
|
30.12.2008, 04:14
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
кто нибудь знает как это решать?
|
|
|
|
30.12.2008, 11:17
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
помогите решить хотя бы 3 и 4 задачи, пожалуйста очень надо!!!
|
|
|
|
30.12.2008, 12:00
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
Код:
Сортировка простым выбором.
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.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
