Массивы в паскале

[Женя2]

помогите пожалуйста к среде надо решить хотя бы 5 задач

1. У прилавка магазина выстроилась очередь из п покупателей. Время обслуживания i-го покупателя равно ti (i= 1, ..., n). Определить время С, пребывания i-го покупателя в очереди.
2. ”Суперзамок”. Секретный замок для сейфа состоит из 10 расположенных в ряд ячеек, в которые надо вставить игральные кубики. Но дверь открывается только в том случае, когда в любых трёх соседних ячейках сумма точек на передних гранях кубика равна 10. (Игральный кубик имеет на каждой грани от 1 до 6 точек.) Напишите программу, которая разгадывает код замка при условии, что два кубика уже вставлены в ячейки.
3. В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся числа. Если таких чисел несколько, то определить наименьшее из них.
4. В каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см, а в каждый пасмурный день опускается вниз на 1 см. В начале наблюдений улитка находилась в 30 см. от земли. Дан массив из 30 элементов, содержащий сведения о том был ли день солнечным или пасмурным.
5. Дан целочисленный массив с количеством элементов n. Сжать массив, выбросив из него каждый второй элемент.
6. Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элеиенты.
7. Из одного массива сделайте два массива, в один из которых попадут элементы с нечетными индексами, а в другой – с четными.

[ОДИНОЧЕСТВО В СЕТИ]

да тебе во фриланс с такой кипой задач! за денюжку помогу! стучи!

[Женя2]

5 и 6 решил
помогите с остальными бесплатно

[IT-man]

5 и 6 решил

сам? тогда и с остальными справишься

[LeBron]

2.

var a,b:longint;
begin
readln(a,b);
if (a+b<4) then writeln('error') //nevozmozhno vstavit kubik bolqshyi za 6
else begin writeln(a,' ',b,' ',10-a-b,' ',a,' ',b,' ',10-a-b,' ',a,' ',b,' ',10-a-b,' ',a);{mozhno cyklom}end;
end.

5.

var a,i:longint;ar,ar1:array[0..1000] of longint;
begin
readln(a);
for i:=1 to a do read(ar[i]);
for i:=1 to (a+1) div 2 do ar1[i]:=ar[2*i-1];
{for i:=1 to (a+1) div 2 do write(ar1[i],' ');}
end.

6.

var a,i,q,l:longint;ar:array[0..1000] of longint;
begin
readln(a);
for i:=1 to a do begin read(q);if q<>0 then begin inc(l);ar[l]:=q;end;end;
{for i:=1 to (a+1) div 2 do write(ar[i],' ');}
end.

Написал несколько, потом может еще напишу. По поводу фриланса - не смешите, за что сдесь деньги брать, по уровню задания - ознакомительный курс в провинциальном техникуме.
Так как не было никаких уточнений и авторских наработок, то написал без констант, с консольной обработкой и не функционал-ретурном. При желании - переделывайте.

[Otre4eHHbIu]

Задача №4
при условии что четное число - солнечный, нечетное - пасмурный.

program pogoda;
var i,na4,kon:integer;
    a:array[1..30] of integer;
begin
na4:=30;
    begin
         writeln('Vvedite pogody: ');
         for i:=1 to 30 do
         readln(a[i]);
    end;
for i:=1 to 30 do
    if a[i] mod 2=0 then
       na4:=na4+2
    else
        na4:=na4-1;
writeln(na4:5);
end.

[Женя2]

LeBron насчёт второй там 10 ячеек а не 3

[LeBron]

Женя2, я вкурсе А Вы, похоже, нет. Просто копирните, откомпильте мой код и взгляните. Чтобы людей даром не смешить.
Кстати, эта вторая задача - иногда в школах дается как олимпиадная, решение, которое я написал, правильное, если вставлены 2 кубика, которые рядом (как во всех тестах к этой задаче, которые гуляют сетью), иначе надо писать по-другому.
По поводу 4ой - напишите полностью задание. Смоделировать ее движение, или как? а то есть, что дано, но нету, что сделать

1ая... если во время не учитывать время обслуживания, то вот так:

var a,i:longint;c,t:array[0..1000] of longint;
begin
readln(a);
for i:=1 to a do begin read(t[i]);c[i+1]:=c[i]+t[i];end;
{for i:=1 to a do write(c[i],' '); }
end.

если учитывать время обслуживания, то меняем 1 строку, чтобы было

c[i]:=c[i-1]+t[i];

[Женя2]

в 4 надо узнать конечное местоположение, но её уже написали
а во 2 ведь сумма равная 10 может быть и в 5-6-7 ячейках а не только в 1-2-3 ячейках,а кубики вставлены в первых двух

[LeBron]

Не просто может, а точно равна. У меня так и получается. Сумма в любых 3 ячейках будет равна a+b+(10-a-b), тоесть 10 - объясняю еще раз для тех, кому лень копирнуть, запустить и проверить.