var a: array[1..n] of integer; i, k, p, max: integer;
begin Randomize; Write('Введите число К: '); Readln(k); Write('Элементы массива: '); p := 0; for i := 1 to n do begin a[i] := Random(101)-50; Write(a[i]:5); if a[i] > k then p := p + 1; end; Writeln(#13#10, 'Количество элементов, больших ', k, '=', p); max := -32768; for i := 1 to n do begin a[i] := 3 * a[i]; if max < a[i] then max := a[i] end; if max > 0 then Writeln('Максимальный элемент массива равен ', max) else Writeln('В массиве нет положительных элементов') end.
Тестовое решение: Введите число К: 25 Элементы массива: -10 43 -6 8 -4 39 26 -30 -33 -10 -34 -4 Количество элементов, больших 25=3 Максимальный элемент массива равен 129
Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
bool переменная может принимать значения true и false - правда и не правда.
Логический тип данных нужен, чтобы программировать различные альтернативные действия.
результат сравнения - bool