#генерируем список из 2000 элементов my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]
# начальное значение для временного минимума min1_value = min2_value = 10000 min1_number = min2_number = 0
while my_list: x = my_list.pop() if x < min1_value: min2_value = min1_value min2_number = min1_number min1_value = x min1_number = 1 elif x == min1_value: min1_number += 1 elif x < min2_value: min2_value = x min2_number = 1 elif x == min2_value: min2_number += 1
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 const КолСтрок=3; КолСтолбцов=5; begin var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer; var СуммыПоСтрокам: array[1..КолСтолбцов] of integer; Writeln('Введите элементы массива (',КолСтрок,',', КолСтолбцов,') построчно:'); for var строка:=1 to КолСтрок do for var столбец:=1 to КолСтолбцов do begin Read(Массив[строка,столбец]); СуммыПоСтрокам[строка]+=Массив[строка,столбец] end; Writeln('Суммы построчно:'); for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка]) end.
my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]
# начальное значение для временного минимума
min1_value = min2_value = 10000
min1_number = min2_number = 0
while my_list:
x = my_list.pop()
if x < min1_value:
min2_value = min1_value
min2_number = min1_number
min1_value = x
min1_number = 1
elif x == min1_value:
min1_number += 1
elif x < min2_value:
min2_value = x
min2_number = 1
elif x == min2_value:
min2_number += 1
print(min2_number)
const
КолСтрок=3;
КолСтолбцов=5;
begin
var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer;
var СуммыПоСтрокам: array[1..КолСтолбцов] of integer;
Writeln('Введите элементы массива (',КолСтрок,',',
КолСтолбцов,') построчно:');
for var строка:=1 to КолСтрок do
for var столбец:=1 to КолСтолбцов do begin
Read(Массив[строка,столбец]);
СуммыПоСтрокам[строка]+=Массив[строка,столбец]
end;
Writeln('Суммы построчно:');
for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка])
end.
Тестовое решение
Введите элементы массива (3,5) построчно:
7 -5 13 19 -11
8 23 -15 -6 0
12 -6 -9 0 12
Суммы построчно:
23 10 9