Пасаны выручайте,еще одна задачка!

[Mysteryqt]

http://ucheba.pro/download/file.php?...a4327a583b7ab7
Вообще ломаю голову,не могу решить

---------- Добавлено в 21:45 ---------- Предыдущее сообщение было размещено в 21:41 ----------

Ластбосис памаги плз я знаю ты умеешь решать такую задачу

[Ilkin]

Вообще ломаю голову,не могу решить

Ты че внатури не можешь решить эту фигню? Зайди microsoft office acsces шо та такое сам поймешь.

File>New>таблица>конструктор
Заполни таблицы дальше объясню

[Mysteryqt]

Это не эксэль,это в паскале нужно сделать. Помоги плз

[Ilkin]

1 строка всегда формат "счетчик"
потом абитуриенты
ФИО
Баллы

хз ты скоре тролиш! если бы не тролил я бы тебе правильно написал, а так там и балван поймет даже

[Ilkin]

я опять лоханулся значит. если надо через паскаль. моя репутация среди крутых пацанов опять упала

[Mysteryqt]

Смотри изи решение:

Скрытый текст

{-- coding by Sabit Murzaliyev --}
program olimp;
const
max = 100;
type
TParticipant = record
LastName : string[20];
FirstName: string[15];
Class: 7..11;
Bal: integer;
end;
var
n, i, j, err, max_bal, winner: integer;
s: string;
Participants: array [1..max] of TParticipant;
Temp: TParticipant;
c, param: byte;
bOk: boolean;
begin
write('Input participant count: ');
readln(n);
writeln('Enter data of participants');
writeln('Format: Lastname Firstname class bal');
writeln;
for i:= 1 to n do
begin
repeat
bOk:= true;
param:= 0;
write(i,': ');
readln(s);
if length(s) < 6 then
bOk:= false
else
for j:= 2 to length(s) do
if (s[j] = ' ') and (s[j-1] <> ' ') then
inc(param);
if (param <> 3) then bOk:= false;
if s[length(s)] = ' ' then bOk:= false;
c:= pos(' ', s);
Temp.LastName:= copy(s, 1, c-1);
s:= copy(s, c+1, length(s)-c);
c:= pos(' ', s);
Temp.Firstname:= copy(s, 1, c-1);
s:= copy(s, c+1, length(s)-c);
c:= pos(' ', s);
val(copy(s, 1, c-1), Temp.Class, err);
s:= copy(s, c+1, length(s)-c);
val(s, Temp.Bal, err);
if bOk then
begin
writeln('ok');
Participants:= Temp;
end
else writeln('error');
until bOk;
end;
max_bal:= Participants[1].Bal;
winner:= 1;
for i:= 2 to n do
if (Participants.Bal >= max_bal) and (Participants.Bal <= 200) then
begin
if Participants.Bal = max_bal then inc(winner);
max_bal:= Participants.Bal;
end;
if winner = 1 then
begin
writeln('Winner');
for i:= 1 to n do
if Participants.Bal = max_bal then
writeln(Participants.Lastname +' '+ Participants.Firstname);
end
else
writeln('winners count: ', winner);
readln;
end.

[свернуть]

[Ilkin]

хз! по условиям не похоже. я короче пошел смотерть шерлок холмс 2. если там будет решение я тебе напишу

[Mysteryqt]

Ластбосис а вы чо щас проходите в школе?

[Ilkin]

я не хожу в школу. но когда я был в школе! на паинте учили. Я и так умел поэтому 5 получал всегда

[Mysteryqt]

Ну нихрена,ок что вы проходите по информатике?

---------- Добавлено в 22:00 ---------- Предыдущее сообщение было размещено в 21:59 ----------

Ты в паинте рисовал варлоков и поэтому получал питерки?

[Ilkin]

в паинте я рисовал плохо. Просто учитель был африканец, а я тоже не русский он мне делал поблажки!

Все я пошел фильм смотреть

[shompgrom]

2 имбицыла гастарбайтера решают примерчики