исходный код на языке программирования pascal
const n = 10;
var
a: array[1..n] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i: =1 to n do a[i]: =random(50)+1;
sum : = 0;
for i: =1 to n do sum : = sum + a[i];
avrg : = sum/n;
// весь массив
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('среднее арифм.: ',avrg: 4: 2);
// больше avrg
for i: =1 to n do if a[i]< avrg then write(a[i]: 3);
writeln;
end.
пример(ы) выполнения программы на языке pascal
13 23 45 2 9 28 47 30 18 12
среднее арифм.: 22.70
13 2 9 18 12
1) по запросу Хорватия будет найдено 1500 страниц.
2) по запросу Уголь & Нефть будет найдено 2300 страниц.
Объяснение:
1. В языке запросов поискового сервера для обозначения логической операции "ИЛИ" используется символ "|", а для логической операции "И" - символ "&".
Сербия & Хорватия - 500
Сербия | Хорватия - 3000
Сербия - 2000
Какое количество страниц будет найдено по запросу Хорватия?
По формуле включений и исключений:
m(Сербия | Хорватия) = m(Сербия) + m(Хорватия) - m(Сербия & Хорватия)
3000 = m(Хорватия) + 2000 - 500
3000 - 2000 + 500 = m(Хорватия)
m(Хорватия) = 1500
ответ: 1500
2. В таблице приведены запросы и количество страниц, которые нашел поисковой сервер по этим запросам в некотором сегменте Интернета?
Уголь | Нефть - 7000
Уголь - 4800
Нефть - 4500
Сколько страниц будет найдено по запросу уголь & нефть?
По формуле включений и исключений:
m(Уголь | Нефть) = m(Уголь) + m(Нефть) - m(Уголь | Нефть)
7000 = 4800 + 4500 - m(Уголь | Нефть)
m(Уголь | Нефть) = 4800 + 4500 - 7000 = 2300
ответ: 2300
Во-первых ошибка в первой строке, вместо Print нужно писать print.
Во вторых, уточните, что она должна выводить, так как изменив первою строку, программа полностью работо