С1. Составьте программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превосходит 100 (каждое число – с новой строки), и выводит на экран число, равное произведению максимального и минимального из них, если минимальное число отрицательно; или сумме максимального и минимального из них, если минимальное число неотрицательно.

Ничего, кроме указанного числа, программа выводить не должна.

 

С2. Составьте программу, которая вводит с клавиатуры натуральное число N, не превосходящее 12, а затем N целых неотрицательных чисел ( каждое чисол - с новой строки), записывает эти N чисел в массив, выводит на экран сначала в обратном порядке все, без исключения, элементы массива, затем, в прямом порядке относительно следования в массиве, все элементы, остаток которых от деления на 8 равен 3.
Каждое число программа должна выводить в отдельной строке; ничего, кроме чисел, программа выводить не должна.

С3. См. фото.

По первой задаче, предполагается, что пользователь корректно всё ввёл:

program c1;uses crt;var b:array[1..3] of shortint; min:integer; max:integer; i:integer;begin for i:=1 to 3 do begin

readln(b[i]); if(i=1) then begin min:=b[i]; max:=b[i]; end; if(b[i]<min) then begin min:=b[i]; end; if(b[i]>max) then begin max:=b[i]; end; end;

if(min<0) then begin writeln(min*max); end else begin writeln(min+max); end;end.

------------------------------------------------------------------------------------------------

Задача номер 2

program c2;uses crt;var b:array[1..12] of word; i:integer; N:byte;begin readln(N); for i:=1 to N do begin readln(b[i]); end;

for i:=N downto 1 do begin writeln(b[i]); end;

for i:=1 to N do begin if b[i] mod 8 = 3 then writeln(b[i]); end;

end.

----------------------------------------------------------------------------------

Задача номер 3

program c3;uses crt;var x,y:real;begin readln(x); readln(y); {check e or not e} if(x*x + y*y)>4 then begin writeln('E'); {snaruzhi okruzhnosti} end else begin if(y>3*x) then {C ili B} begin if(y>-3*x) then writeln('B') else writeln('C'); end else {A ili D} begin if(y>-3*x) then writeln('A') else writeln('D'); end; end;

end.

в третьей задаче 1 проверяем точка в окружности или за окружностю, затем проверяем выше она первой прямой или ниже, и также со второй прямой. в зависимости от результатов проверки делаем вывод. Задавайте вопросы