Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
C самого детства-я считал, что в вычислительных машинах таилось нечто особенное, непонятное многим людям. В возрасте 6 лет я точно определился-компьютеры-моя любовь. Достаточно много времени прошло с того момента, и я уже во многом разбираюсь, но до сих пор точно не определился, на какую специализацию пойти в будущем, ведь их так много! Информационная безопастность, прикладная информатика, программирование автоматизированных систем, web программирование, специалицазии на определенных языках программирования...-у меня разбегались глаза. Впрочем я и сегодня, занимаясь письмом этого сочинения до сих пор думаю о своем "Великом выборе".
Однако одно я могу заявить точно, с настоящей гордостью-"Я люблю компьютеры и хочу связать с ними свою жизнь!"
Правильный ответ у меня вышло Г
Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
Системный блок, мышка, монитор, клавиатура, оперативная память, файлы системного обеспечения, программные файлы, видеокарта,
