30 1) выведите на экран 'сегодня понедельник' 2) выведете на экран на языке паскаль а> b, а> 35 3) сделайте запрос на ввод переменной и введите переменную 4) изобразите на языке паскаль, если а> b, то вывести значенин а на экран, иначе вывести b 5) введите с клавиатуры 2 любых числа, найдите их сумму, выведите на экран нужно!

1)

beginwrite('сегодня понедельник'); end.

2)

beginwrite('a> b, a> 35'); end.

3)

var x: integer; begin read(x); end.

4)

var a,b: integer; beginreadln(a,b); if a> b then write(a)else write(b); end.

5)

var x,y,z: integer; begin readln(x,y); z: =x+y; write(z); end.

Var   i, e, min, max, s, n: integer;   c: real; begin   min : = 32767; max : = -32768; s : = 0; n : = 0;   write('введите 10 чисел через пробел ');   for i : = 1 to 10 do   begin       read(e);       if max < e then max : = e;       if min > e then min : = e;       if (e > = 100) and (e < = 999) then           if (i mod 10 = 1) and (i mod 7 = 0) then           begin n : = n + 1; s : = s + i end   end;   writeln('max=', max, ', min=', min);   if n > 0 then writeln('искомое среднее равно ', s / n: 0: 5)   else writeln('нет трехзначных чисел, оканчивающихся на 1 и кратных 7') end.

Var a: array[1.. 10000]of longint;       n,i,j,min: integer; begin   writeln('vvedite n');   readln(n);   writeln('vvedit chisla');   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =1 to n do       begin        if min> a[i] then begin  min: =a[i]; j: =i; end;     end;   write(i-1); end. если n будет больше то в описании увеличь размер массива там где подчеркнуто