Носители сообщений - это объекты, на которых сообщения занесены в своей структуре на длительное время.
aromastil88
12.11.2020
Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var x: real; begin x: =-4.5; writeln('x y'); for var i: =1 to 17 do begin x: =x+0.5; writeln(x,' ',abs(x-2)+abs(x+1)); end; readln; end. пример: x _ y -4 _ 9 -3.5 _ 8 -3 _ 7 -2.5 _ 6 -2 _ 5 -1.5 _ 4 -1 _ 3 -0.5 _ 3 0 _ 3 0.5 _ 3 1 _ 3 1.5 _ 3 2 _ 3 2.5 _ 4 3 _ 5 3.5 _ 6 4 _ 7
milaudina
12.11.2020
Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var n: integer; a: array[1..100] of integer; begin write('введите размер массива (n< 100): '); readln(n); var max: =0; var min: =101; for var i: =1 to n do begin a[i]: =random(0,100); write(a[i],' '); if i mod 2=0 then if a[i]> max then max: =a[i] else if a[i]< min then min: =a[i]; end; writeln; writeln('максимальный - ',max); writeln('минимальный - ',min); readln; end. пример: введите размер массива (n< 100): 10 15 32 90 97 35 62 52 37 5 63 максимальный - 97 минимальный - 37