//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
m.Println();
{1}
Writeln('количество элементов соответствующей строки');
var number := ReadInteger('Введите число, для проверки =');
var a := m.Rows.Select(r -> r.Count(x -> x > number));
a.Println;
{2}
Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
b.Println;
Writeln(b.Any(x -> x > 0));
{3}
Writeln('Заполнить массив');
var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
m.Println();
end.
Переменные: number,a,b,c,max,counter тип целочисленный
<h3><em>Начало</em></h3>
Ввод значения number
a = number целочисленное деление на 100
b = (number целочисленное деление на 10) остаток от деления на 10
c = number остаток от деления на 10
если (a больше b) и (a больше c) то
max = a
если (b больше a) и (b больше c) то
max = b
если (c больше b) и (c больше a) то
max = c
если a = max то
counter = counter + 1
если b = max то
counter = counter + 1
если c = max то
counter = counter + 1
Вывод значения counter
<h3><em>Конец</em></h3>
Program KTD;
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
begin
for i:=1 to 10 do
readln(t[i]);
for i:=1 to 10 do
begin
sum:=sum+t[i];
end;
srt:=sum/10;
for i:=1 to 10 do
begin
if t[i]>srt then
k:=k+1;
end;
writeln(k);
end.
Проверил, работает. Удачи:)
ну вот вроде бы так, точнее скорее всего так
