Задача 1
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x<16) И НЕ (x четное)

Задача 2
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ((x>16) ИЛИ (x<10))

Задача 3
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ((x<16) ИЛИ (x четное))

Задача 4
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x<=8) И (x кратно 3)

Задача 5
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ (x>=30) И (x четное)

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

алгоритм-это организованная последовательность действий.

свойства алгоритма: дискретность, , массовость, детерминированность, конечность.

алгоритм:

1)взять линейку

2)найти длинный всех сторон

3)сложить все три строны треугольника

4)записать ответ

(извиняюсь если алгоритм не правильно написан, с не дружу)

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!