var a: array[1..n1, 1..n1] of integer; i, j, n, k, m: integer; s: real;
begin Write('Введите число строк (cтолбцов) массива: '); Readln(n); Randomize; Writeln('Исходный массив'); m := 0; for i := 1 to n do begin for j := 1 to n do begin k := Random(101) - 50; a[i, j] := k; Write(k:4); end; Writeln; m := m + a[i, i] end; k := 0; s := m / n; for i := 1 to n do for j := 1 to n do if a[i, j] > s then k := k + 1; Writeln('Среднее значение элементов главной диагонали равно ', s); Writeln('Количество элементов, значения которых больше этой величины - ', k) end.
//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
n1 = 20;
var
a: array[1..n1, 1..n1] of integer;
i, j, n, k, m: integer;
s: real;
begin
Write('Введите число строк (cтолбцов) массива: ');
Readln(n);
Randomize;
Writeln('Исходный массив');
m := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
k := Random(101) - 50;
a[i, j] := k;
Write(k:4);
end;
Writeln;
m := m + a[i, i]
end;
k := 0; s := m / n;
for i := 1 to n do
for j := 1 to n do
if a[i, j] > s then k := k + 1;
Writeln('Среднее значение элементов главной диагонали равно ', s);
Writeln('Количество элементов, значения которых больше этой величины - ', k)
end.
Тестовое решение:
Введите число строк (cтолбцов) массива: 10
Исходный массив
29 22 23 15 -23 -25 19 9 -8 -16
1 15 2 35 27 -44 -10 -34 19 50
-35 -31 15 -24 24 -11 -49 -46 40 20
16 48 16 -49 -22 -2 -37 -38 -25 9
36 44 6 23 -16 -27 -40 22 20 29
30 -12 45 32 19 10 -44 -4 41 38
-27 14 20 23 19 4 50 0 7 -21
43 -23 42 -40 -36 -29 13 43 42 0
-21 -20 -15 -40 41 -23 -47 34 -17 19
-9 18 -29 -13 -15 -29 -27 34 -46 31
Среднее значение элементов главной диагонали равно 11.1
Количество элементов, значения которых больше этой величины - 45
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0
var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;
begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-