program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Ответ дал: Гость
program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.
Популярные вопросы