import math
print("Введите кол-во чисел в последовательности:")
leangth_nums = input();
if int(leangth_nums) <= 1000:
i = 0;
nums_arr_five = [];
print("Введите числа, когда вы решите что чисел хватит напишите stop")
while i <= 999:
num_input = input()
if (num_input == "stop"):
break;
else:
if (int(num_input) % 5 == 0):
if (int(num_input) < 30000):
nums_arr_five.append(int(num_input))
i+=1
else:
print("num > 30000")
else:
i += 1
continue
print(max(nums_arr_five))
else:
print("Error leanth_nums is have lean. > 1000")
Объяснение:
program array4x4;
const
D = 4; // размерность массива, можно менять на любое другое
var
A: array [1..D, 1..D] of Integer;
i, j, s, smax, jmax, smin, imin: Integer;
begin
Randomize;
for i := 1 to D do begin
WriteLn;
for j := 1 to D do begin
A [i, j] := Random (21) - 5;
Write (A [i, j] :3, ' ');
end;
end;
smax := 0;
jmax := 0;
for j := 1 to D do begin
s := 0;
for i := 1 to D do begin
s := s + Abs (A [i, j]);
end;
if s > smax then begin
smax := s;
jmax := j;
end;
end;
WriteLn;
WriteLn ('Столбец № ', jmax, ' Сумма модулей = ', smax);
imin := 1;
smin := MaxInt;
for i := 1 to D do begin
if A [i, jmax] < smin then begin
smin := A [i, jmax];
imin := i;
end;
end;
WriteLn ('Наименьший элемент: ', imin, ' : ', jmax, ' Равен = ', smin);
ReadLn;
end.
