Ввести информацию по 10 участникам соревнований

@vsvladan · Регистрация: 07.03.2013

Author24 — интернет-сервис помощи студентам

Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований. решите пожалуйста срочно

@ermolay · 07.03.2013, 11:22

Pascal

const
  n=3;
type
  sport=record
      name: string[30];
      god : integer;
      res : integer;
  end;
var
  a: array[1..n] of sport;
  i,imax: integer;
begin
  writeln('Введите результаты соревнований:');
  for i:=1 to n do
  begin
    writeln(i,'-й участник:');
    with a[i] do
    begin
      write('  Ф.И.О.: ');
      readln(name);
      write('  год рождения :');
      readln(god);
      write('  результат: ');
      readln(res);
    end;
  end;
  imax:=1;
  for i:=2 to n do
    if a[i].res>a[imax].res then imax:=i;
  writeln('Победитель соревнований - ',a[imax].name);
end.

@vsvladan 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 55
		1
	Ввести информацию по 10 участникам соревнований 07.03.2013, 09:23. Показов 3926. Ответов 1 Метки нет (Все метки) Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований. решите пожалуйста срочно 0

	07.03.2013, 11:22

Ввести информацию по 10 участникам соревнований

Решение