Задача 1 Составить программу При поступлении в вуз абитуриенты , получившие "двойку" на первом экзамене , ко второму не допускаются . В массиве A[n] записаны оценки экзаменующихся , полученные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену . Задача 2 В одномерном массиве , состоящем из n вещественных элементов , вычислить ; 1) минимальный элемент массива; 2)сумму элементов массива , расположенных между первым и последним положительными элементами . Преобразовать массив таким образом , чтобы сначала располагать все элементы , равные нулю, а потом-все остальные .
program dopusk;
uses crt;const n=random(10);
var a:array[1..n]of integer;i,l:integer;
begin randomize;
clrscr;
l:=0;
for i:=1 to n do
begin
a[i]:=random(5)+2;
writeln(a[i]);
end;
for i:=1 to n do
if a[i]=2 then l:=l+1;
writeln('кол-во недопущенных',l);
end.