Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
1) система поиска организована быстрей удобней.
...
235) можно распечатать, или отправить то что нужно.
...
23423) быстрей и чаще обновляется.
...
<span>1000000) можно дать другу с флэшкой, не в ущерб себе. </span>
# coding: utf-8
'''
Последовательность состоит
из натуральных чисел и завершается
числом 0. Определите, сколько
элементов этой последовательности
больше предыдущего элемента.
Python 3.X.
'''
prev = int(input()) # ввод первого элемента
count = 0 # изначально 0 элементов
while True:
n = int(input()) # ввод числа
if n == 0:
break # выход, если 0
if n > prev:
count += 1
prev = n # смещение числа
print(count, "эл.")
Двойной выделяет строку
тройной - весь текст