Две задачи на Паскале

[Lestadt]

Добрый день, у меня возникли некоторые затруднения с решение двух последних задач, если есть такая возможность просто подсказать как решается даннны задачи. Эти задачи являются допонительными и на оценку не влияют(я прочитал правила) и естественно особо настаивать не буду, если есть такая возможность посмотреть может что-нибудь у вас получится.

(это типовые задачи на первом курсе универа)
1. Для произвольной матрицы А(M,N) сформировать одномерный массив В, k-й элемент которого равен произведению k-й строки матрицы А, значение которых находится в диапазоне от1 до 5, используя процедуру. Определить номер строки с наименьшим значением произведения.
2. Используя функции для работы со строками, написать программы:
2.1 В произвольной строке все слова "двоечник" заменить на "отличник".
2.2 Для произвольного числа Х определить сколько цифр, составляющих число, находится в диапазоне от 0 до 5. Если таких цифр 2, то изменить знак числа на противоположный.
3. Записать в файл Т чисел, введенных с клавиатуры. Считать из файла среднее арифметическое среди положительных чисел.
4. Создать типизированный файл, в котором хранится информация о результатах эксперимента с ядерными частицами: номер эксперимента, число столкнувшихся частиц, число вновь образовавшихся. Число файла по номеру эксперимента, среднее число столкнувшихся частиц и среднее число вновь образовавшихся. Написать программу выдачи на экран записи файла по номеру эксперимента, среднее число столкнувшихся частиц и среднее число вновь образовавшихся.
5. Посчитать D=sin(S1/S2), где S1 - сумма положительных элементов l-того столбца матрицы А; S2 - сумма положительных элементов k-того столбца матрицы А. Вычисление суммы элементов оформить в виде функции.
6. Вычислить Т=корень(Mx/My)+(1/tg(Px+Py)-4.7) , где Mx - максимальный положительный элемент одномерного массива Х, Му - максимальный положительный элемент одномерного массива Y, Рх - минимальный отрицательный элемент массива Х, Ру - минимальный отрицательный элемент массива Y.

[Utkin]

если есть такая возможность посмотреть может что-нибудь у вас получится.

А Вы сомневаетесь в наших способностях?

[Lestadt]

я первый раз отписываюсь на форуме чтоб мне подсказале, я делаю все сам
в ваших способнастях я несомневаюсь

[Utkin]

Сообщение от Lestadt

5. Посчитать D=sin(S1/S2), где S1 - сумма положительных элементов l-того столбца матрицы А; S2 - сумма положительных элементов k-того столбца матрицы А. Вычисление суммы элементов оформить в виде функции.

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

[IT-man]

5)

type matr = array[1..10,1..10] of integer;
--------------------
function sum(var z:integer;ar:matr;):integer;
var s:integer;i:integer;
begin
s:=0;
if (z<>0) and (z<10) then
for i:=1 to 10 do
if ar[z,i]>0 then
s:=s+ar[z,i];
sum:=s;
end;

использование

d:=sin(sum(l,ar)/sum(k,ar));

6)

type vector = array[1..10] of integer;
------------------------------------
function m( var a:vector):integer;
var i:integer;
begin
m:=0;
for i:=1 to n do
if a[i]>m then m:=a[i];
end;
function p( var a:vector):integer;
var i:integer;
begin
p:=0;
for i:=1 to n do
if a[i]<p then p:=a[i];
end;

использование

t:=sqrt(M(x)/M(y))+(cos(P(x)+P(y)/sin(P(x)+P(y))-4.7);

[tyui567]

Составить программу, которая создаст файл, состоящий из 15-ти целых чисел из диапазона от 0 до 30.Затем выведет на экран все элементы созданного файла и сумму чётных элементов этого файла.

[пауэрлифтинг]

var f : file of byte; i,x: byte; symma: word;
begin
assign(f,'data.dat');
rewrite(f);
randomize;

symma:=0;

for i:=1 to 15 do
begin
x:=random(31);
write(f,x);
write(x:3);
if (x mod 2 = 0 ) then symma:=symma+x;
end;

writeln;
close(f);
writeln('summa=',symma);
readln
end.

[Lestadt]

спасиб огромное всем кто отписался,
задачки проверил робят

[limpopo]

Здравствуйте!!!Помогите решить задачку,пожалуйста:
Дана символьная строка,содержащая цифры от 0 до 9,объедененные в слова,разделенные между собой одним или несколькими пробелами.Рассматривая слова как числа,определить количество слов,делящихся на 7 без остатка

[IT-man]

Стучи в аську - помогу за вознаграждение!