И опять он, Паскаль!!!!

[Doktor]

Мужики.... Опять у меня глупый вопрос.... Только не говорите, фигаля ты его не учишь.... НУ, млин... не мое это.... я летчик. до костей и мозгов.... всмысля, мне бы в небо..))) но пока никак! ! !

В чем задача... да в том чт осессия .... зачет...
дали 3 задачи... а я как всегда не бум-бум в этом.... помогите чем сможете???

1. Дан массив из 100 целых цисел. Написать программу нахождения произведения четных элементов массива.

2. В целочисленной матрице размерностью 10*10 найти номер строки, содержащей минимальный элемент матрицы.

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


Буду очень признателен...))) ежель чо, пива с миня! ну иль вотка... ))

[Savant]

Doktor
Опять?.. =) На каждую сессию заглядываешь ? =). Кстати, в прошлый раз (http://forum.oszone.net/showthread.php?p=289108#post289108) были ну очень похожие задачи. Можно было чего-нибудь и подучить в конце-концов... :wink:

1.

var
i, multi: Integer;
a: array[1..100] of Integer;
multi_succ: Boolean;
begin
{ Ввод данных }
...
multi := 1;
multi_succ := False;
for i := 1 to 100 do
if a[i] mod 2 = 0 then begin
multi := multi * a[i];
multi_succ := True;
end;
if multi_succ then
WriteLn('Multiplication result: ', multi);
else
WriteLn('No such numbers for multiplication')
end.

2.

var
i, k, min, min_line: Integer;
a: array[1..10, 1..10] of Integer;
begin
{ Ввод данных }
...
min := MaxInt;
min_line := 1;
for i := 1 to 10 do
for k := 1 to 10 do
if a[i, k] < min then begin
min := a[i, k];
min_line := i;
end;
WriteLn('Line: ', min_line);
end.

3. not enough data ;)

[Doktor]

Savant
Да... )) Ты меня раскусил...)) Ну не программер я... хех... попробую моей ненаглядной преподше че-нить фтереть...

жаль что 3-ей нету...((( все равно бюольшое спасибо!
опть ты меня спас!