На языке паскаль . задано 3 числа проверить идут они по возростанию по убыванию или произвольно. задано 2 числа найти их произведение.

1)

var a,b,c: integer; beginreadln (a,b,c); if (a> b) and (b> c) then writeln ('числа стоят по убыванию '); if (a< b) and (b< c) then writeln (' числа стоят по возрастанию'); end.

 

2)

var a,b: integer; beginreadln (a,b); writeln (a*b); end.

Var a: array[1..5,1..5]of integer; i,j,k: integer; begin   for i: =1 to 5 do       begin         writeln;           for j: =1 to 5 do                 begin                   a[i,j]: =random(21)-10;                     write(a[i,j]: 4);                       if a[i,j]=1 then                         k: =k+1;                 end;       end; writeln; if k=0 then     writeln('нет =1') else       writeln(k); end.

Uses   system.collections.generic; var   a: list< integer> : = new list< integer> (); //объявляем и создаём  динамический массив   i: integer; begin   repeat     readln(i);     if (i = 0) then       break     else       a.add(i);   until (false); //прекращаем цикл, когда рак (break) в цикле свиснет (false можно заменить на "2 + 2 = 5"       writeln(#13); //вставляем 2 пустые строки       foreach i in a do  //выводим исходный массив     write(i, ' ');         writeln();       foreach i in a do  //выводим конечные числа, нет массив изменять     write(abs(i), ' ');   end.