Пожайлуста помогите решить 8 задач на паскале

[Меф]

2. Циклы.
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10 % от нормы предыдущего дня. Через сколько дней спортсмен будет пробегать в день больше 20 км? больше 25 км? больше 40 км?
3. Двумерные массивы
Сформировать квадратную матрицу порядка n по заданному образцу
0 0 0 … 0 0 1
0 0 0 … 0 2 0
0 0 0 … 3 0 0
… … … … … … …
0 n-1 0 … 0 0 0
n 0 0 … 0 0 0
4. Строки.
Дана строка, содержащая текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
5. Подпрограммы. Составить программу на Паскале.
Дан одномерный массив, выполнить следующие действия:
- найти первый максимальный элемент массива и заменить его нулем.
- заменить нулями те числа, величина которых по модулю больше максимального числа;
- найти max(a2, a4, …a2k)+min(a1, a3,…a2k-1);
- найти среди элементов массива те, которые являются квадратами некоторого числа m;
6. Из заданного списка спортсменов распечатать сведения о тех из них, кто занимается плаванием, указать возраст, сколько лет занимаются спортом и фамилию самого старшего.
7. Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Определить сколько процентов от общего числа элементов составляют положительные элементы файла.
8. Составить программу – тестирование по информатике (10 вопросов; 4 варианта ответов к каждому вопросу; выставление итоговой оценки с рекомендациями). Тестовые задания должны выбираться из файла во время работы программы.
9. Графика в Паскале. Нарисовать правильный шестиугольник.

[НикитаWeb]

Решу за деньги
стучи в ICQ: 381-834-859

[werser]

program t_1;
var s:real;i,m,z:integer;
begin
s:=10; i:=0;m:=0;z:=0;
while s<=20 do
begin
s:=s+s*0.1;
i:=i+1;
end;

while s<=25 do
begin
s:=s+s*0.1;
m:=m+1;
end;
while s<=40 do
begin
s:=s+s*0.1;
z:=z+1;
end;

Write('Dlya 20 =',i,' Dlya 25 =',z,'Dlya 40 =',m);
end.

[werser]

program t_2;
var a:array [1..10,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=0;

for i:=10 downto 1 do
for j:=1 to 10 do
a[i,j]:=i;

for i:=1 to 10 do begin Wrteln;
for j:=1 to 10 do
Write(' ',a[i,j]);
end;
end.

[Меф]

werser я искрене благодарю вас, в program t_1 у меня к сожелению ответ не правильный . а не могли бы сказать что такое матрица ? и как её потчитывать

[werser]

Таблица с чисел если по простому

[AlDelta]

Читаем ВСЕ ссылки с моей подписи, потом создаем темы.
Закрыто.