Для какого значения числа z истонно выражение: (z меньше или равно 30) и не (z больше или равно 15)? 1) 10 2)15 3) 20 4) 30

Для значения z=10 истинно выражение (z<=30) и не (z=>15)

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.

A: array[1..10, 1..10] of integer; i, j, M, N: byte; MinElem: integer; begin write('M = '); readln(M); write('N = '); readln(N); { Формируем и выводим матрицу: } randomize; writeln('Случайная матрица ', M, 'x', N, ':'); for i := 1 to M do begin for j := 1 to N do begin a[i, j] := -100 + random(200); write(a[i, j]:4) end; writeln end; writeln; writeln('Минимальный элемент в каждой строке:'); for i := 1 to M do begin { Начальное значение минимального элемента равно первому элементу строки (j = 1): } MinElem := a[i, 1]; for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N } { Если a[i,j] меньше минимума, то новым минимумом становится a[i,j] } if a[i, j] < MinElem then MinElem := a[i, j]; writeln(i, '-я строка: минимальный элемент = ', MinElem) end; readln end.