НАПИСАТЬ Программку При поступлении в вуз абитуриенты, получившие 2 на первом
НАПИСАТЬ Программку
При поступлении в вуз абитуриенты, получившие 2 на первом экзамене, ко второму не допускаются. В массиве записаны все оценки экзаменующихся приобретенные на первом экзамене. Подсчитать сколько студентов сдали первый экзамен на 5, на 4, на 3, и сколько не допущено ко второму экзамену.
Степка Афанасьевский
одномерный , нужно чтоб пользователь либо рандом вводил оценки , а программка считала сколько сдали и сколько сдали на 5,4,3
2 ответа
Виталька Дураков
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),2,5); a.Println;
var b:=a.GroupBy(t-gt;t).Select(t-gt;(t.Key,t.Count)).OrderBy(t-gt;t[0])
.Select(t-gt;t[1]).ToArray;
Writeln('Сдано на 5: ',b[3]);
Writeln('Сдано на 4: ',b[2]);
Writeln('Сдано на 3: ',b[1]);
Writeln('Не допущено: ',b[0])
end.
Пример
n= 20
4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2
Сдано на 5: 3
Сдано на 4: 8
Сдано на 3: 4
Не допущено: 5
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),2,5); a.Println;
var b:=a.GroupBy(t-gt;t).Select(t-gt;(t.Key,t.Count)).OrderBy(t-gt;t[0])
.Select(t-gt;t[1]).ToArray;
Writeln('Сдано на 5: ',b[3]);
Writeln('Сдано на 4: ',b[2]);
Writeln('Сдано на 3: ',b[1]);
Writeln('Не допущено: ',b[0])
end.
Пример
n= 20
4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2
Сдано на 5: 3
Сдано на 4: 8
Сдано на 3: 4
Не допущено: 5
Владимир
Сможете написать иную программу ?
Iljushka Krumkach
Дана квадратная матрица размера N. Если сумма частей по главной диагонали больше суммы частей на побочной диагонали, то заменить элементы стоящие на четных местах в строке на * , а элементы стоящие на нечетных местах в строке на ноль.
Василий Маджар
просто как написали вы , мне не делаем так на уроках , а как написал человек выше делали
Эльвира Чотчаева
Uses crt;var a:array [1..99999] of integer;i,n,k,l,p,o: integer;beginwriteln ('vvedite kol-vo ychenikov');readln (n);for i:=1 to n do beginwriteln ('vvedite osenky',' ',i,' ','ychenika');readln(a[i]);if a[i]=2 then k:=k+1;if a[i]=3 then l:=l+1;if a[i]=4 then o:=o+1;if a[i]=5 then p:=p+1;end;if klt;2 then writeln ('ne dopyshen',' ',k,' ', 'ychenik');if kgt;=2 then writeln ('ne dopysheno',' ',k,' ', 'ychenika');writeln ('kol-vo 3 -',' ',l);writeln ('kol-vo 4 -',' ',o);writeln ('kol-vo 5 -',' ',p);end.
Борька Краменцев
uses crt;var a:array [1..99999] of integer;i,n,k,l,p,o: integer;beginwriteln ('vvedite kol-vo ychenikov');readln (n);for i:=1 to n do beginwriteln ('vvedite osenky',' ',i,' ','ychenika');readln(a[i]);if a[i]=2 then k:=k+1;if a[i]=3 then l:=l+1;if a[i]=4 then o:=o+1;if a[i]=5 then p:=p+1;end;if k<2 then writeln ('ne dopyshen',' ',k,' ', 'ychenik');if k>=2 then writeln ('ne dopysheno',' ',k,' ', 'ychenika');writeln ('kol-vo 3 -',' ',l);writeln ('kol-vo 4 -',' ',o);writeln ('kol-vo 5 -',' ',p);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов