Убелки есть робот, который умеет выполнять 2 действия: а) прибавлять 1 б) умножать на 2 каким алгоритмом можно получить из числа 3 число 30? выберите один ответ: a. абабб b. ббааб c. бабаба d.
Const n = 15; var a: array[1..n] of integer; i, j, m: integer; begin // генерация и вывод randomize; for i := 1 to n do a[i] := Random(19)-8; for i := 1 to n do write(a[i], ' '); writeln;
// Сортировка for i := 1 to n-1 do begin m := i; for j := i+1 to n do if a[j] < a[m] then m := j;
if m <> i then begin j := a[m]; a[m] := a[i]; a[i] := j; end; end; for i := 1 to n do write(a[i], ' '); writeln;
// поиск наибольшей разности m := a[2] - a[1]; for i := 3 to n do if a[i] - a[i-1] > m then m := a[i] - a[i-1]; writeln ('разность = ', m); end.
Uses crt; var a,b:array[1..100] of integer; i,j,k,n:integer; procedure rmassr; begin for i:=1 to n do begin a[i]:=random(10); end; end; procedure rmassy; begin for i:=1 to n do begin readln(a[i]); end; end; procedure rmass(); begin for i:=1 to n do begin write(a[i],' '); end; end; procedure newmass; begin for i:=1 to n do begin if a[i] > 0 then b[i]:=a[i]; end; for i:=1 to n do begin j:=j+b[i]; end; writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.
Думаю чем то