Кто получит "автомат"? ЯЗЫК СИ В Алтайском государственном техническом университете студенты получают оценки по стобальной шкале, то есть от нуля до ста. Преподаватель Павел Иванович пообещал студентам, что те из них, у кого семестровый рейтинг будет выше среднего по группе, получит "автомат". А староста группы Петька Петров еще пообещал каждому "автоматчику" по шоколадке (у Петьки папа занимается поставками шоколада в магазины, и Петька с ним договорился о спонсорской ).
И теперь у Пети проблема - ему нужно выяснить, сколько шоколадок он должен принести в университет ему в добром начинании. Представляете, как хорошо будет, если каждый предприниматель будет успевающим студентам!
Напишите программу, которая будет вычислять количество "автоматов" в группе студентов. Очень может быть, что Ваша программа пригодится не только для Пети и его отца, а и для предпринимателей всей страны, точнее, для всех умных людей, которые понимают, что надо поддерживать успешных студентов!
Входные данные
Первая строка содержит количество студентов n (n ≤ 10000) в группе. Будем считать, что почин Петиного отца будет взят на вооружение всем прогрессивным человечеством, предприниматели будут сражаться за право дать приз студентам не только одной группы, но и всего университета, поэтому число студентов велико.
Следующие строки содержат n целых чисел - рейтинги студентов. Числа разделены пробелами и, может быть, символами перевода строки.
Выходные данные
Выведите количество шоколадок, которое Петя должен принести в университет.
Задача из Еолимпа
ответ:алг т;
нач
Сместится в точку(2,1);
Опустить перо;
Сместится на вектор(0,2);
Сместится на вектор(1,0);
Сместится на вектор(-2,0);
кон.
алг я;
нач
Сместится в точку(1,1);
Опустить перо;
Сместится на вектор(1,1);
Сместится на вектор(0,1);
Сместится на вектор(-1,0);
Сместится на вектор(0,-1);
Сместится на вектор(1,0);
Сместится на вектор(0,-1);
кон.
алг с;
нач
Сместится в точку(3,1);
Опустить перо;
Сместится на вектор(-2,0);
Сместится на вектор(0,2);
Сместится на вектор(2,0);
кон.
Объяснение: на таком примере делай все буквы
Var a, b, c:integer;
Begin
Readln(a,b,c);
If a>=b+c then Writeln('Нет' )
Else if b>=a+c then Writeln('Нет')
Else if c>=a+b then Writeln('Нет')
Else Writeln('Да');
End.
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
Else Writeln('Да');
End.