написать встроенные функции ФОТКА ПРИЛАГАЕТСЯ
1. Сколько учеников сдали экзамен по математике ниже, чем на отметку а экзамены по русскому и иностранному языку на отметку ответ на этот во запишите в ячейку H2 таблицы. Учтите, что ученики могли сдавать не все экзамены.
2. Каков средний учеников 3 класса по русскому языку? Учтите, что некоторые ученики не сдавали этот экзамен. ответ с точностью до двух знаков после запятой запишите в ячейку H3 таблицы.
3. Постройте круговую диаграмму, отображающую соотношение числа участников экзамена из 5, 8 и 9 классов. Левый верхний угол диаграммы разместите вблизи ячейки G6.
4. Сколько учеников сдали экзамен по математике на отметку но получили средний по всем сданным экзаменам ниже, чем ответ на этот во запишите в ячейку H2 таблицы. Учтите, что ученики могли сдавать не все экзамены.
5. Каков средний учеников 4 класса по математике? Учтите, что некоторые ученики не сдавали этот экзамен. ответ с точностью до двух знаков после запятой запишите в ячейку H3 таблицы.
6. Постройте круговую диаграмму, отображающую соотношение числа участников экзамена из 1, 5 и 9 классов. Левый верхний угол диаграммы разместите вблизи ячейки G6.
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
destinations = 'СЗЮВСЗЮВСЗЮВ'; {Предварительно сформированная строка ориентаций}
var
C : char;
N1, N2, Position : integer;
begin
write('Исходная ориентация локатора: ');
readln(C);
write('Первая команда поворота: ');
readln(N1);
write('Вторая команда поворота: ');
readln(N2);
Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления}
Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
writeln('Конечная ориентация: ', destinations[Position]);
end.