Developing.ru

Условия задач:
1.Написать программу для определения даты следующего дня+дня недели(с использованием перечисляемого типа).
2.Используя программу ранжирования,найти суммы наибольшего и 2-ух наименьших элементов массива:
Y=(4,1,-2,1,2,3,1,5,-4,-1,4,3).
Распечатать массив до и после ранжирования.
3.Найти среднее арифметическое элементов с чётными номерами массива:
C=(-1,5,0,4,-3,-2,-1,3,0,2,-3,6)
:roll: ops:

Это в "решите мне задачу".
И еще: рекомендую хотя бы озаботиться написанием текста задачи. А то полуторамегабайтная картинка сразу отбивает желание помогать

Ага, по GPRS тем более.

Загадка, совет: отредактируйте свой пост, добавив собственно задачу а также закачайте на сайт картинке меньшего размера

поправка.
хм... текст задачи оказывается просто сфотографирован... дык напишите об этом в посте! и размер... :shock:

Простите,сглупила. :roll:
Вот условия задач:
1.Написать программу для определения даты следующего дня+дня недели(с использованием перечисляемого типа).
2.Используя программу ранжирования,найти суммы наибольшего и 2-ух наименьших элементов массива:
Y=(4,1,-2,1,2,3,1,5,-4,-1,4,3).
Распечатать массив до и после ранжирования.
3.Найти среднее арифметическое элементов с чётными номерами массива:
C=(-1,5,0,4,-3,-2,-1,3,0,2,-3,6)

На третью задачу:
for i:=1 to 12 do
if i mod 2 =0 then
begin
sum:=sum+c;
inc(kol);
end;
isk:=sum/kol;
Writeln('Среднее аоифметическое равно ',isk);
sum и kol - типа integer
isk типа real

инетересно...
инетересно...

объясните кто-нибудь мне, такому-растакому лаймеру, что такое программа ранжирования!!!

Да может обычная сортировка, тогда максимальный будет в начале массива а минимальные в конце

1. Не помню точно, как называется процедура, но лежит она в модуле dos. Getdate, кажется. Получаем d,m,y. Не помню, есть ли в Паскале функция, возвращающая количество дней в месяце, если нет, пишем
function ndm(m:byte; y:word):byte;
begin
if m=2 then
if (y mod 4=0) and (y mod 100<>0) or (y mod 400=0)
then ndm=29 else ndm=28
else
if m in [1,3,5,8,10,12] {вроде бы так}
then ndm=31 else ndm=30;
end;
Теперь находим завтрашнюю дату:
if d<ndm(m,y) then begin dz=d+1; mz=m; yz=y; end
else if m<>12 then begin dz=1; mz=m+1; yz=y; end
else begin dz=1; mz=1; yz=y+1; end;
d,m,y - сегодняшний день, месяц и год (полученные из процедуры модуля dos). dz, mz, yz - завтрашние день, месяц и год.
Про день недели - не помню, есть ли в Паскале такая функция.