Помогите решить задачи в паскале

[Bedaaaa]

1. Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить в какой день он пробежит .больше 20 км.
2. Дан массив a[15], заполненный с помощью случайных целых чисел. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и вывести на экран их номера.
3. Найти максимальный элемент массива D (4,4) среди элементов, расположенных выше главной диагонали, и индексы минимального элемента среди элементов, расположенных на побочной диагонали.

[Stilet]

А попытки хоть какие-нибудь были?

[Luca Brasi]

вроде ж не сложные задачи...
Вот по поводу первого

   $way = 10;
    $day =1;
    
    while ($way <= 20) {
        $way = 1.1 * $way;
        $day++;
    }
    echo ($day);

Это на пхп правда. На паскале что то похожее будет.

[newerow1989]

Решение 1 задачи:

var S:real;
    t:integer;
begin
   S:=10;
   t:=1;
   Repeat
      t:=t+1;
      S:=S+S*0.1;
   Until S>20;
   Write('t=',t,'; S=',S);
   Readln;
end.

[newerow1989]

Решение 2 задачи:

var p:array[1..15] of integer;
    i,min,max,count:integer;
    sred:real;
begin
   Randomize;
   For i:=1 to 15 do
   begin
      p[i]:=Random(1000);
      Writeln(p[i]);
   end;
   min:=p[1];
   max:=p[1];
   For i:=2 to 15 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   sred:=(min+max)/2;
   Writeln('min=',min,'; max=',max,'; sred=',sred);
   count:=0;
   For i:=1 to 15 do
      If p[i]>sred then
      begin
         Write(i,', ');
         count:=count+1;
      end;
   Writeln('Itogo: ',count);
   Readln;
end.

На счет 3 задачи я не знаю, какая диагональ называется главной, а какая побочной?

[newerow1989]

Решение 3 задачи (примерно):

var d:array[1..4,1..4] of integer;
    i,j,min,max:integer;
begin
   Randomize;
   For j:=1 to 4 do
      For i:=1 to 4 do
      begin
         d[i,j]:=Random(1000);
         If i=4 then
            Writeln(d[i,j]) else
            Write(d[i,j],'  ');
      end;
   max:=0;
   For j:=1 to 4 do
      For i:=j+1 to 4 do
         If max<d[i,j] then
            max:=d[i,j];
   Writeln('max=',max);
   min:=d[4,1];
   For i:=1 to 4 do
      If min>d[4-i+1,i] then
         min:=d[4-i+1,i];
   Writeln('min=',min);
   For i:=1 to 4 do
      For j:=1 to 4 do
         If min=d[i,j] then
            Writeln('(',i,'; ',j,')');
   Readln;
end.

[Bedaaaa]

Огромное спасибо)

[newerow1989]

Пожалуйста!