чего делать с этим вредным паскалем???

[type_Oleg]

У кого, у меня ? Да у меня вообще Vista , и 2 ядра в ЦП.

[min@y™]

Сколько помню, Delphi 10 Seattle, на Windows 10. И чтобы 10 ядер+10 ГГц.

И чего? Скриншот лазаруса ваще с википедии, если чо.
А ваще да, у меня и процессор AMD А10, но памяти всего 8 гиг напихать удалось (слоты кончились).

200611.jpg

C лазарусом экспериментировал чисто ради "посмотреть-чо-за-штука". ИМХО: для опенсорс-кроссплатформ-продуктов - самое то. Для школоты и студентов - это лучшее из бесплатного. Да ещё и на русском (тут у медальки 2 стороны, канешна).

http://coub.com/view/d3c0d

Если смотришь моё рукожопство - мог бы и лайкнуть. И зарепостить - тоже, а то чот просмотров мало совсем. Я учусь...

[VIK_aka_TOR]

Сообщение от min@y™

А ваще да, у меня и процессор AMD А10, но памяти всего 8 гиг напихать удалось (слоты кончились).

это тот самый апгрейд с A6 4400M на A10-4600M ?

[min@y™]

это тот самый апгрейд с A6 4400M на A10-4600M ?

нет. это 2 разных ноута. А6 - HP Pavillion g6, A10 - Acer aspire v3-551g.

[NikiToZz_]

min@y™, лучшее http://coub.com/view/d2lei

[min@y™]

лучшее http://coub.com/view/d2lei

А лайков пачка где?

Не, имхо, с радиоприёмником - лучшее. На монтаж потратил 5 часов!

Вообще, монтаж годных кубов - крайне кропотливое занятие. Время жгёт, как в топке паровозной. Но увлекательно, пипец.

Сегодняшний с Кузьмичом, запилил за 2 часа примерно. Учусь...

[zvygin1964]

"Пронесло, пронесло ! "

[min@y™]

"Пронесло, пронесло ! "

дядьмиш, ты чо, не знаешь Славика Незаменимого, штоли?

[zvygin1964]

О. Этого помню ещё со времён, когда у меня интернетов не было...
"Выйди и сама прыгни. Вова... На меня ругаются..."

[ULTRA_DAMAGE]

program lol;
uses crt;
var n: integer;
var c: byte;
var d: byte;
var e: byte;
type st = record
  mark : byte;
  name : string[10];
end;
var b: array[1..99] of st;
var a:integer;
begin
writeln('введите количество учеников');
readln(n);
writeln('введите данные об учениках');
for a:=1 to n do repeat
writeln('ученик (фамилия):');
  readln(b[a].name);
writeln('оценка:');
  readln(b[a].mark);
until a<=n;
clrscr;
writeln('обработка данных...');
c:=0;
d:=0;
e:=0;
if (c<b[1].mark) then
c:=b[1].mark;
if (b[1].mark>d) then
d:=b[1].mark;
if e<b[1].mark then
e:=b[1].mark;
for a:=2 to n do repeat
if (c<b[a].mark) and (d>b[a].mark) then
c:=b[a].mark;
if (b[a].mark>d) and (e>b[a].mark)  then
d:=b[a].mark;
if e<b[a].mark then
e:=b[a].mark;
until a<=n;
writeln('лучший результат:',e);
writeln('второй результат:',d);
writeln('третий результат:',c);
end.

как сделать последнюю часть, чтобы назодила 3 максимальных элемента массива и их индексы?