И опять он, Паскаль!!!! - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - И опять он, Паскаль!!!! (http://forum.oszone.net/showthread.php?t=50864)

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

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

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

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

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

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

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

Doktor
Опять?.. =) На каждую сессию заглядываешь ? =). Кстати, в прошлый раз были ну очень похожие задачи. Можно было чего-нибудь и подучить в конце-концов... :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.

Код:

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 ;)

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

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