#Непосредственно ввод матрицы
main_list = []
final_end_check = 0
input_row_order = -1
row_end_check = 0
while (final_end_check == 0):
input_row_order += 1
input_list = []
while (row_end_check == 0):
a = input("Введите число в матрицу")
try:
a = int(a)
except ValueError:
if (a == "end"):
if (len(input_list) == len(main_list[input_row_order - 1])):
main_list.append(input_list)
final_end_check = 1
break
else:
input_list.append(a)
if (input_row_order == 0 and a == "next"):
main_list.append(input_list)
print(input_list, "\nВы ввели строку номер", input_row_order + 1, ", её длина равна", len(input_list), ", теперь введите числа в следующую\n")
break
if (input_row_order > 0): #Переход на следующую строку с ввода "next"
if (a == "next" and len(input_list) != len(main_list[input_row_order - 1])):
print("Длина текущей строки не совпадает с длиной предыдущей (", len(main_list[input_row_order - 1]), "),введите строку заново")
input_row_order -= 1
break
if (a == "next" and (len(input_list) == len(main_list[input_row_order - 1]))):
print(input_list, "\nВы ввели", input_row_order + 1, "строку, теперь введите числа в следующую\n")
main_list.append(input_list)
break
#Транспонирование матрицы
print("\nОсновная матрица\n")
for i in range(len(main_list)):
print(main_list[i])
final_list = [[row[i] for row in main_list] for i in range(len(main_list[0]))]
print("\nТранспонированная матрица:\n")
for i in range(len(final_list)):
print(final_list[i])
Объяснение:
3) тут просто
var n, i: integer;
begin
for i := 1 to frac(n/2) do
write("Левая Правая ");
if n mod 2 = 1 then write("Левая");
end.
4) Чтобы скобочная последовательность была правильной, нужно, чтобы сумма любых k первых чисел была неотрицательна и чтобы сумма всех n чисел равнялась нулю.
var current_sum, n, x, flag: int;
begin
readln(n);
flag := 1;
current_sum := 0;
for i := 1 to n do begin
readln(x);
current_sum := current_sum + x;
if (current_sum)<0 then flag := 0;
end;
if current_sum<>0 then flag := 0;
if flag = 1 then writeln("является")
else writeln("не является");
end.
Задача №1
program ex1;
var x, y:integer;
begin
writeln ('Введите x, y');
readln(x, y);
if x + y > 50 then x:=x+10 else y:=y-20;
write(x, y);
end.
Задача №2
program ex2;
var x:integer;
begin
writeln('Введите число');
readln(x);
if x mod 2 = 0 then x:=x-4 else x:=x*2;
writeln(x);
end.
Объяснение: