Фрагмент программы: For i:=1 to 50 do begin If (a[i]>=0) and (a[i]<10) then writeln(a[i]); End; вводит на экран элементы массива, если они Є(0,10], выводит на экран все элементы массива большие или равные 0, выводит на экран элементы массива, если они Є(0,10], выводит на экран элементы массива, если они Є[0,10), увеличивает элементы массива на 50, если они Є[0,10)