Мне тоже самое надо решить))) P.S может ты из моего класса?)
Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Var
A: array [1..4, 1..5] of real;
i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
A[i, j] := random*2-1;
write(A[i, j]:6:2, ' ');
if A[i, j] > 0 then z := z + 1;
end;
writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.
1. 1) 1000111_2+1001101_2=10010100_2
2)10010100_2-10011_2=10000001_2
2.1) 111_2*101_2=100011_2
2)100011_2-111_2=11100_2
3)11100_2/10_2= 1110_2