1)
const n=10; var a: array [1..n] of integer; i,max: integer; begin write('введите массив: '); for i: =1 to n do read(a[i]); readln; max: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('максимальный элемент - ',max); readln; end.2) 3)
const n = 100; var arr: array[1..n] of integer; i, m, qty: byte; begin write('количество элементов массива: '); readln(m); write('элементы массива через пробел: '); for i: =1 to m do read(arr[i]); readln; qty : = 0; i : = 2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty : = qty + 1; i : = i + 2 end else i : = i + 1; writeln('кол-во элементов, которые больше соседей: ', qty); readln; end.вроде как-то так
uses crt; var i, n, kol: byte; sum_rost, sr_rost: real; team: array[1..100] of real; begin sum_rost : = 0.0; sr_rost : = 0.0; kol : = 0; write('введите количество членов команды'); read(n); writeln('введите рост каждого члена команды'); for i : = 1 to n do begin readln(team[i]); sum_rost : = sum_rost + team[i]; end; sr_rost : = sum_rost / n; for i : = 1 to n do if (team[i] > sr_rost) then kol : = kol + 1; writeln('количество членов команды, рост которых превышает средний по команде (', sr_rost: 4: 2, ')'); write(' равно ', kol); end.прошу. я надеюсь надо было на паскале написать? )
Поделитесь своими знаниями, ответьте на вопрос:
F(x) =x²-3x+9 если x≤3 = (1)/(x²+6) если x> 3 решите функцию в программе pascal и составьте блок схему