uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
Это что, метод решения показать ?!Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия! Что за чем: 1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов) 2 - выбор приборов для исследования 3 - сборка электрической цепи 4 - определение параметров цепи по показаниям приборов 5 - анализ полученных данных 6 - общий вывод 7 - сверка полученного результата с заданным конструктором решением 8 - анализ ошибочных действий исследователем (если они допущены) Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.
Пример
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401