Напишите функцию, которая определяет количество элементов передаваемого массива, которые меньше определенного числа, это число тоже передается в функцию.
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;
begin var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println; var k:=ReadInteger('Введите границу отсечения элементов:'); Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k)) end.
Пример n= 17 -50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52 Введите границу отсечения элементов: 23 Количество элементов, меньших 23, равно 11
1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
1.Мультимедиа — это собирательное понятие для различных компьютерных технологий, при которых используется несколько информационных сред, таких, как графика, текст, видео, фотография, движущиеся образы (анимация), звуковые эффекты, высококачественное звуковое сопровождение. 3.аблица является оптимальной формой организации данных, связанных с вычислениями. Ведь и в рукописном варианте числовые данные чаще всего формируют в виде таблицы. Даже знакомая нам с начальной школы таблица умножения на обложке тетради оформлена таблицей, правда, без обрамления. В ней четко выдержано расположение друг под другом множителей знаков умножения и значений произведений (результатов вычислений). Кроме того, в каждом столбце числа выровнены по разрядам: единицы под единицами, десятки под десятками. Среди данных, которые можно использовать в электронной таблице, можно выделить: * влияющие данные (числа, от которых зависит результат вычислений) * зависимые данные (столбец результатов арифметических операций над влияющими данными) * текстовые данные, не участвуют в реальном вычислительном процессе, а носят чисто оформительский характер В работе с электронными таблицами можно выделить три основных типа данных: число, текст и формула. В зависимости от решаемой задачи возникает необходимость применять различные форматы представления данных. Первые два типа данных (число и текст) считаются константами (постоянными величинами), то есть представляют собой информацию, которая не изменяется без вашего участия.
// Внимание! Если программа не работает, обновите версию!
function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;
begin
var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
var k:=ReadInteger('Введите границу отсечения элементов:');
Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.
Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11