Developing.ru

Вообщем требуется написать три программы...
буду очень благодарен
"Дан квадратный массив 10х10.
Найти сумму элементов строки, в которой расположен максимум.

Дан массив из 30 элементов. Найти количество элементов, равных минимальному.

Дан массив 6х10. Найти сумму минимальных элементов каждой строки."
Заранее спс
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Люди,ну помогите пожалуйста,хотя бы с 3,очень надо!

Ищи по форуму. Подобные задачи делались тысячу раз. Можно делать по такому алгоритму: запомнили первый элемент строки, проходим по строке, и если встречается элемент больше ранее запомненного, то запоминаем его как максимум. И так для каждой стрки. Накапливаем в дополнительной переменной (напр. sum) полученные максимумы. Помедетируй над этим. После этого выкладывай наработки. Если что-то непонятно - спрашивай.

Третья.
[syntax=pascal]
Uses CRT;
Var A:array[1..6, 1..10] of Real;
Min,SumMin:Real;
i,j:integer;
Begin
SumMin:=0;
For i:=1 to 6 do
Begin
Min:=0;
For j:=1 to 10 do
If A[i,j]<Min then Min:=A[i,j];
SumMin:=SumMin+Min;
End;
End;
[/syntax]
SumMin - искомая сумма; если требуется, можно вывести на экран
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
"Дан квадратный массив 10х10.
Найти сумму элементов строки, в которой расположен максимум."
[syntax=pascal]
Uses Crt;
Var A:array[1..10, 1..10] of Real;
Max,Sum:Real;
Index,i,j:Integer;
Begin
Max:=0;
Sum:=0;
Index:=0;
For i:=1 to 10 do
begin
For j:=1 to 10 do
begin
If A[i, j]>Max then
Begin
Max:=A[i,j];
Index:=i;
End;
End;
End;
For j:=1 to 10 do
Sum:= Sum+A[index, j];
End.
[/syntax]
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
"Дан массив из 30 элементов. Найти количество элементов, равных минимальному"
pascal Код:
[syntax=pascal]
Uses CRT;
Var A:array[1..30] of Real;
Min:Real;
I,Q: Integer;
Begin
Min:=0;
Q:=0;
For i:=1 to 30 do
If A < Min then Min:=A;
For i:=1 to 30 do
If A = Min then Inc(Q);
End.
[/syntax]

Спасибо,тему можно удалить