НАПИСАТЬ ПРОГРАММУ
При поступлении в вуз абитуриенты, получившие “2” на первом экзамене, ко второму не допускаются. В массиве записаны все оценки экзаменующихся полученные на первом экзамене. Подсчитать сколько студентов сдали первый экзамен на “5”, на “4”, на “3”, и сколько не допущено ко второму экзамену.

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.

Дана квадратная матрица размера N. Если сумма элементов по главной диагонали больше суммы элементов на побочной диагонали, то заменить элементы стоящие на четных местах в строке на “ * ”, а элементы стоящие на нечетных местах в строке на ноль.

1) Недопустимо в комментарии к решению указывать текст другой задачи. 2) Не вижу смысла это делать, если Вам более по душе другой код)))

О чем с Вами говорить, если для вас код в 24 строки лучше, чем в восемь? )))))))

просто как написали вы , мне не делаем так на уроках , а как написал человек выше делали

Вот поэтому мне нет смысла писать Вам дальше программы, раз вы "так не делаете"

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.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),2,5); a.Println;  var b:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])      .Select(t->t[1]).ToArray;  Writeln('Сдано на 5: ',b[3]);  Writeln('Сдано на 4: ',b[2]);  Writeln('Сдано на 3: ',b[1]);  Writeln('Не допущено: ',b[0])end.Примерn= 204 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