/program granat; uses crt; var a: array [1..10] of integer; i,k,x,z,vsp: integer; begin write ('исходный массив: '); for i : = 1 to 10 do begin a[i]: =random(10); {заполняем массив}write (a[i]: 3); end; writeln; begin for k: =1 to 9 do begin x: =a[k]; vsp: =k; for i: =k+1 to 10 do if a[i]< x then begin x: =a[i]; vsp: =i; end; if vsp> k then begin z: =a[k]; a[k]: =a[vsp]; a[vsp]: =z; end; end; end; write ('отсортированный массив: '); for i : = 1 to 10 dowrite (a[i]: 3); writeln; begin for i: =1 to 10 do if a[i] mod 2 = 0 then write (a[i]: 3); end; end.
сергей1246
13.01.2022
Const n =50; var s,i,j,z: integer; m: array[1.. n] of integer; begin writeln('размер массива'); s: = readinteger(); for i: =1 to s do begin m[i] : = random(100)-50; write( m[i]: 4); end; writeln; for i: =1 to s do begin j : = m[i]mod 4; z : = m[i]mod 6; if (j = 0)or (z=0) then write(i: 4); end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вкакой системе счисления хранится информация в компьютере с технической точки зрения? а.двоичной б. восьмиричный с.десятичной д.16-ричный