Написать программу: 1)ввести целое число х и определить, является ли число положительным или отрицательным. 2)ввести три числа a, b, c и вывести наибольшее max.

1.

program raf105;

var a: integer;

begin

write('введите число: ');

readln(a);

if a< 0

  then writeln('число отрицательное')

  else writeln('число положительное');

end.

2.

program raf105;

var a,b,c: integer;

begin

write('введите 3 числа: ');

readln(a,b,c);

if (a> b) and (a> c)

  then writeln('большее ',a);

if (b> a) and (b> c)

  then writeln('большее ',b);

if (c> b) and (c> a)

  then writeln('большее ',c);

end.

язык программирования pascalabc

Var a: array [0..10] of integer;     i, m: integer; begin       m : = 1;             for i : = 0 to 10 do       begin           a[i] : = random(50) - 25;           writeln('[', i, '] => ', a[i]);       end;       for i : = 0 to 10 do           if (a[i] mod 2 = 1) then m : = m * a[i];       writeln(m); end.2)var a: array [0..10] of integer;     i, m: integer; begin      for i : = 0 to 10 do      begin          a[i] : = random(50) - 25;           writeln('[', i, '] => ', a[i]);       end;             for i : = 0 to 10 do          if ((a[i] > a[m]) and (a[i] < 0)) then            m : = i;       writeln('[', m, '] => ', a[m]); end.можно и меньше циклов, это я для наглядности, чтобы всё не смешивалось =)

Windows 1.0 (1985) windows 2.0 (1987) windows 2.1 (1987) windows 3.0 (1990) windows 3.1 (1992) windows for workgroups 3.11 (1992) windows nt 3.5 (1994) windows nt 3.51 (1995) windows 95 (1995) windows nt 4.0 (1996) windows 98 (1998) windows 98 se (1999) windows 2000 (2000) windows me (2000) windows xp (2001) windows server 2003 (2003) windows xp 64-bit edition (2005) windows vista (2006) windows home server (2007) windows server 2008 (2008) windows small business server (2008) windows 7 — windows nt 6.1 (2009) windows server 2008 r2 (2009) windows home server 2011 (2011) windows 8 (2012) windows server 2012 (2012)