На создание односвязного списка (pascal

1: а) d+5;

б) b-2;

в) d: =b;

 

 

2: а) раз d=b, то:

  |a+b|-1=|3+9|-1=|12|-1=12-1=11

б) trunc - возвращает целую часть числа, frac - дробную:

a*b/c=3*9/-10= -27/10= -2.7

trunc( - 2.7)= -2

9*2/(-10)fra=18/ -10= -1.8

frac(-1.8)= -0.8

 

 

-2+(-0.8)= -2-0.8= -2,8 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

uses crt; var a: array[1..20] of integer; b: array[1..20] of integer; i,j,k,min,max: integer; beginwriteln('первый массив: '); for i: =1 to 20 do begin a[i]: =random(50-10+1)+10; write(a[i]: 3); end; writeln; writeln('второй массив: '); for j: =1 to 20 do begin b[j]: =random(90-30+1)+30; write(b[j]: 3); end; writeln; min: =60; writeln('первый массив в порядке возрастания: '); for i: =1 to 20 do begin for j: =1 to 20 do begin if a[j]< min then begin min: =a[j]; k: =j; end; end; a[k]: =60; write(min: 3); min: =60; end; writeln; max: =0; writeln('второй массив в порядке убывания: '); for j: =1 to 20 do begin for i: =1 to 20 do begin if b[i]> max then begin max: =b[i]; k: =i; end; end; write(max: 3); b[k]: =0; max: =0; end; writeln; end.насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? в каждом массиве, или в двух массивах одновременно? и учитывать ли то, что числа в массиве могут повторяться. именно поэтому я не включил этого в код.