Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что все знаки элементов этой последовательности чередуются.питон онли
1. var a:array[1..5,1..5] of integer; i,j,sum,min,n:Integer; begin min:=25; for i:=1 to 5 do begin Writeln('Введите места ', i,' спортсмена'); for j:=1 to 5 do Read(a[i,j]); end;
for i:=1 to 5 do begin for j:=1 to 5 do sum:=sum+a[i,j]; if sum<min then begin min:=sum; n:=i; sum:=0; end; end; Writeln(n, ' спортсмен лучший'); end.
2. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i]>(3*(n-1)/2) then k:=k+1;
Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений'); end.
3. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] = 3*(n-1) then Write(i, ' '); Write(' команд(а,ы чемпионат без поражений!'); end.
4. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do if a[i,j]<>1 then sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] > (3*(n-1))/2 then k:=k+1; Write(k,' команд выиграли более половину игр'); end.
var
a:array[1..5,1..5] of integer;
i,j,sum,min,n:Integer;
begin
min:=25;
for i:=1 to 5 do
begin
Writeln('Введите места ', i,' спортсмена');
for j:=1 to 5 do
Read(a[i,j]);
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
sum:=sum+a[i,j];
if sum<min then
begin
min:=sum;
n:=i;
sum:=0;
end;
end;
Writeln(n, ' спортсмен лучший');
end.
2.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do
if sum[i]>(3*(n-1)/2) then k:=k+1;
Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений');
end.
3.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do
if sum[i] = 3*(n-1) then Write(i, ' ');
Write(' команд(а,ы чемпионат без поражений!');
end.
4.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
if a[i,j]<>1 then
sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do
if sum[i] > (3*(n-1))/2 then k:=k+1;
Write(k,' команд выиграли более половину игр');
end.
N = int(input('Введите N (строки): '))
M = int(input('Введите M (столбцы): '))
array_1 = []
array_2 = []
array_3 = []
el = 0
for i in range(N):
a = []
if M % 2 == 0 and i > 0:
if el == 0:
el = 1
else:
el = 0
for _ in range(M):
a.append(el)
if el == 0:
el = 1
else:
el = 0
array_1.append(a)
print('Задание 1.')
for row in array_1:
for el in row:
print(el, end = ' ')
print()
for i in range(N):
a = []
for j in range(N):
if j > i:
a.append(0)
else:
a.append(1)
array_2.append(a)
print()
print('Задание 2.')
for row in array_2:
for el in row:
print(el, end = ' ')
print()
for i in range(N):
a = []
for j in range(N):
if j < N - i - 1:
a.append(0)
else:
a.append(1)
array_3.append(a)
print()
print('Задание 3.')
for row in array_3:
for el in row:
print(el, end = ' ')
print()