Const
handsfree = false;
var
a: array[1..100] of real;
i, n: integer;
sum, product, harmonic: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if abs(a[i]) <= 5 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
Var x,y,z,t: real;
begin
write('числа x y z через пробел: ');
readln(x,y,z);
t:=2*cos(x-pi/6)/(0.5+sin(y)*sin(y))*(1+z*z/(3-z*z/5));
writeln('t = ',t);
end.
числа x y z через пробел: 1 2 3
t = 11.3859051278616
(x не принадлежит P) v (x принадлежит Q) v (x не принадлежит A) v (x принадлежит R) как любезно упростил preceptor
в коментариях
т.е. чтоб выражение было истинным, то достаточно чтоб хоть одно выражение в скобочках было истинным
Менять мы можем только А, то есть нужно добитьсяя истиности для (x не принадлежит A) при любом х
а это А = пустое множество
1) Обмен данными между ПК, и т.п.
Обеспечение системы
Загрузка программ в память
Организация диалога
2) Windows, Linux, Mac OS.
3)Обмен информацией командами или инструкциями между человеком и ЭВМ
4)В процессе практической работы на компьютере у пользователя периодически возникают проблемы, связанные как с работой системы в целом, так и отдельных устройств и программ: замедление работы, нехватка места на диске, ошибки выполнения программ, их зависание и т.п. Для выявления таких проблем, устранения причин их возникновения и обслуживания отдельных устройств в состав системного программного обеспечения включают сервисные программы (утилиты).
(Твой Одноклассник)