Как решить данную задачу на ЯП "Pascal" ? Напишите процедуру – заставку к программе вычисления
математических функций в виде
*
Программа
* вычисления математических функций
*
Автор: Фамилия. И.О.
Заставка должна выводиться на очищенный экран, оставаться на экране в
течение 3 сек. С последующей очисткой экрана. Вызовите процедуру Zastavka в
начале программы.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
1) 1
2) 2
3) 2
4) 2
Объяснение:
1)
т.к. выражение в информатике - запись про которую можно однозначно сказать, оно ложно или нет
2)
а) НЕ (Первая буква согласная) - Первая буква гласная
б) НЕ (Последняя буква гласная) - Последняя буква согласная
ИЛИ - Одно из двух условий
ложно для имени - ни условие а), ни условие б) не выполняется
Пимен выполняет условие б)
Кристина не выполняет ни одно из условий
Ирина выполняет условие а)
Александр выполняет условие а)
3)
¬ - оператор НЕ
& - оператор И
В общем виде НЕ(условие 1) И НЕ(условие 2)
Выражение истинно если не выполняются оба условия
Условие 1: x < 6.
Условие 2: x < 7.
Искомое число больше чем 6 и 7. Минимальное целое - 8.
Из предложенных вариантов подходит только 9