Var mas:array[1..1000, 1..1000] of integer; N,i,j,sum:integer;
Begin Writeln('Введите размер матрицы N*N'); Write('N = ');readln(N); if (N>1000) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы'); sum:=0; for i:=1 to N do for j:=1 to N do Begin readln(mas[i,j]); if (mas[i,j] mod 2 <> 0) then sum:=sum+mas[i,j]; end;
Writeln(); Writeln('Исходная матрица'); for i:=1 to N do Begin for j:=1 to N do Begin Write(mas[i,j], ' '); end; Writeln(); end;
Writeln(); Writeln('Сумма нечетных элементов = ',sum);
Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим.
Из 1 в 7 Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.
(1)6<-5->7(1) То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4 (2)5<-4->6(1) Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три. Рассмотрим таким все остальные числа до 1. (3)4<-3->5(2) - всего 5 программ (5)3<-2->4(3) - всего 8 программ (8)2<-1->3(5) - всего 13 программ.
Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды (1)12<-11->13(1) - 2 программы (2)11<-10->12(1) - 3 программы (3)10<-9->11(2) - 5 программ (5)9<-8->10(3) - 8 программ (8)8<-7->9(5) - 13 программ
Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;
Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1) then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
sum:=0;
for i:=1 to N do
for j:=1 to N do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 <> 0)
then sum:=sum+mas[i,j];
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
Write(mas[i,j], ' ');
end;
Writeln();
end;
Writeln();
Writeln('Сумма нечетных элементов = ',sum);
end;
readln;
end.
Из 1 в 7
Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.
(1)6<-5->7(1)
То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4
(2)5<-4->6(1)
Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три.
Рассмотрим таким все остальные числа до 1.
(3)4<-3->5(2) - всего 5 программ
(5)3<-2->4(3) - всего 8 программ
(8)2<-1->3(5) - всего 13 программ.
Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды
(1)12<-11->13(1) - 2 программы
(2)11<-10->12(1) - 3 программы
(3)10<-9->11(2) - 5 программ
(5)9<-8->10(3) - 8 программ
(8)8<-7->9(5) - 13 программ
Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169