S_E_D, полноэкранный режим пашет у тебя на семерке ?

LtiomaP, Нет почемуто,но меня ето не смущает:-)

fcSM-Ufa, на, ленивец upwap.ru/659272

valvE212, а нах црт подключал?

valvE212, у тебя тут ошибочка вишла writeдт("s=",s){Writeln нужно а не writeдт}; readln; end.

S_E_D, сори, Punto Switcher постарался)) вот исправил upwap.ru/659826 . // Pavlus, а че не надо? нас с 8 класса так писать учат))

valvE212, посмотри в справке процедуры и функции модуля црт.

Pavlus, он там для clrscr только, видимо.

!ceMage, и для readkey,keypressed, а также для функций управления цветом текста и фона.

program pab3; uses crt; var A:array[1..10]of integer; i,k,n:integer; begin readln (A); writeln ("vvedite","A"); k:=A[1]A[2]; for i:=2 to n do begin if(AA[i-1]>k) or (AA[i-1]=k) then k:=AA[i-1]; end; writeln("poluchenii rezyltat", "k="); readln (k); end. программа работает,но ответ пишет не цифри а смайлики в чем ошибка??

Den UA, может вместо readln(k); должно быть write(k); ? Вывода результата никакого нету

ничего не изменилось