задача на массив

[Яша]

В соревнованиях детской спортивной школы по плаванию проводятся заплывы 50м брассом, кролем и на спине. Учавствуют 10 спортсменов.
Сформировать массивы:
1.Фамилии спортсменов 2.Результат в плавании брассом 3.Результат в плавании кролем 4.Результат в плавании на спине
(массив 1 заполняется присваиванием, масси2-4 с помощью ГСЧ)
все массивы распечатать в виде протокола соревнований.
Определить1
1.Фамилии спортсменов, занявших 1-е места в каждом стиле плавания.
2.Фамилии спортсменов, показавших худший результат в каждом стиле плавания.
3.Фамилии спортсменов, занявших 1-е места по сумме трех заплывов.
4.Распечатать фамилии спортсменов по порядку убывания мест(от лучшего к худшему) по сумме трех заплывов.


помогите пожалуйста))

[alex_fcsm]

Как я понял вам нужно 4 массива(фамилии и рез-таты).
Заполняете их банально с помощью readln
1) ищите минимумы по 2-4 массивам и выводите соответствующие фамилии
2) ищите максимуму по 2-4 массивам и выводите соответствующие фамилии
3) ищите минимумы по сумме 2-4 массивов
4) сортируете по сумме и выводите

Что у Вас не получается? Что уже получилось?

[Яша]

у меня ничего не получается, массивы для меня темный лес, а вот эта задача -моя зачетная работа, если вам не очень трудно, помогите пожалуйста=))

[alex_fcsm]

Почитайте здесь. Что непонятно спрашивайте. Вам же потом задачу эту защищать.
http://umnik.rikt.ru/informat/Library/pas_help.htm

[Яша]

мне её просто сдать надо будет и набрать в паскале.

[Костя КС]

первые два пункта

program qw;
const n = 3;
type mas = array[1..n] of real;
var
t1, t2, t3, t : mas;      { t - сумма результатов}
f : array[1..n] of string;
i : byte;

function min (x : mas) : byte;
var m : real;
    k : byte;
begin
m := x[1];
min := 1;
for k:= 1 to n do
  if m > x[k] then
   begin
    m := x[k];
    min := k;
   end;
end;

function max (x : mas) : byte;
var m : real;
    k : byte;
begin
m := x[1];
max := 1;
for k:= 1 to n do
  if m < x[k] then
   begin
    m := x[k];
    max := k;
   end;
end;

begin
for i:=1 to n do
begin
 write('f : ');
 read(f[i]);
 write('t1 = ');
 read(t1[i]);
 write('t2 = ');
 read(t2[i]);
 write('t3 = ');
 readln(t3[i]);
 t[i] := t1[i] + t2[i] + t3[i];
 end;
 writeln(' ');
 writeln(f[min(t1)],' ',t1[min(t1)]);    {минимальные результаты}
 writeln(f[min(t2)],' ',t2[min(t2)]);
 writeln(f[min(t3)],' ',t3[min(t3)]);
 writeln(' ');
 writeln(f[max(t1)],' ',t1[max(t1)]);  {максимальные}
 writeln(f[max(t2)],' ',t2[max(t2)]);
 writeln(f[max(t3)],' ',t3[max(t3)]);
 writeln(' ');
end.

[Яша]

спасибо , но большая часть этой программы мне не понятна, т.е многого я не изучала еще, и к сожалению не могу писать её в этом виде)), но все равно спасибо

[Костя КС]

ну значит чтобы решить эту задачу, всё-таки придется подучить паскаль)

[Яша]

а как вывести массивы в виде протокола??

[alex_fcsm]

Это значит: фамилия,рез1,рез2,рез3