я надеюсь ты не будешь против, если я буду кидать всю программу
пишу на python
№1
#array заполнен по условию
even = 0
odd = 0
for elem in array:
if elem % 2 == 0:
even += 1
else:
odd += 1
print(even, odd)
№2
a)
Red Blue Yellow Purple
Red Blue Purple Yellow
Blue Red Purple Yellow
б)
for i in range(len(array)):
for j in range(len(array) - 1):
if array[j] > array[j + 1]:
array[j], array[j + 1] = array[j + 1], array[j]
print(*array)
№3
k = int(input())
array = array[:k] + array[k + 1:]
print(array)
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
WriteLn;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
i, j: integer;
a[i, j] := random(11) + 20;
if a[i, j] <= min then min := a[i, j];
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
я надеюсь ты не будешь против, если я буду кидать всю программу
пишу на python
№1
#array заполнен по условию
even = 0
odd = 0
for elem in array:
if elem % 2 == 0:
even += 1
else:
odd += 1
print(even, odd)
№2
a)
Red Blue Yellow Purple
Red Blue Purple Yellow
Blue Red Purple Yellow
б)
for i in range(len(array)):
for j in range(len(array) - 1):
if array[j] > array[j + 1]:
array[j], array[j + 1] = array[j + 1], array[j]
print(*array)
№3
k = int(input())
array = array[:k] + array[k + 1:]
print(array)
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.