Дано прямокутну таблицю А розміром nxn (1<=n<=100), що заповнена цілими числами. (-65000SAi, S65000) Потрібно отримати прямокутну
максимальному елементу в 1-му рядку та j-му стовпчику таблиці А
Технічні умови. Програма Table2021 читає з пристрою стандартного введення в
першому рядку число n, а далі прядків по n чисел в кожному - елементи таблиці А.
рядках відокремлені пропусками. Програма виводить на пристрій
стандартного введення - n рядків та n стовбців масиву В. Числа в рядках розділені
пропусками
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение: