Разное

////////////////////
1. CONST N=100;
VAR X:ARRAY[1..N] OF REAL;
Упорядочить массив X по неубыванию (т.е. перес
тавить его элементы так, чтобы для всех К выпол-
нялось x(к)<=x(к+1) используя следующий алгоритм
сортировки (упорядочения) : сортировка выбором :
отыскивается максимальный элемент и переносится
в конец массива; затем этот метод применяется ко
всем элементам , кроме последнего (он уже нахо-
дится на своем окончательном месте).
///////////////////
2. Найти среднее геометрическое положительных элементов каждого столбца матрицы А(10,15).
//////////////////
3. type число=1..31; месяц=1..12;
год=1..2000;
дата=record ч:число; м:месяц;
г:год end;
Cчитая, что все даты даются по григорианскому календарю
(новому стилю), описать логическую функцию вернаядата(d),
проверяющую правильность даты d (т.е. чтобы не было 31 ию-
ня и т.п.).
///////////////////

Ну, а что мешает самому это сделать ?

В аттаче два первых задания, третье пусть будет на вашей совести!

Пароль - ответ на вопрос: ограниченная совокупность однотипных величин (integer,real и т.д)

Ну, а что мешает самому это сделать ?

времени нету!

Пароль - ответ на вопрос: ограниченная совокупность однотипных величин (integer,real и т.д)

массив. спасибо.