без использования всяких функций
Объяснение:
Pascal
var
a:array [1..12] of integer;
i, j, k:integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(101)-50;
print(a);
writeln();
i:=1;
while i <= 12 do begin
for j:= i to 12 do
if a[j]<a[i] then begin
k:=a[j];
a[j]:=a[i];
a[i]:=k;
dec(i);
break;
end;
inc(i);
end;
print(a);
writeln();
if a[3] mod 2 = 0 then
writeln(a[3], ' число четное')
else
writeln(a[3], ' число нечетное')
end.
![Дан одномерный массив из 12 случайных чисел в Диапазоне [-50;50]. Отсортировать массив по возрастани](/tpl/images/2088/6369/3b3b5.jpg)
while True:
n = int(input('Введите кол-во чисел: '))
if n <= 1000:
break
else:
print('Ошибка: Кол-во чисел не должно превышать 1000')
number = None
for _ in range(n):
while True:
num = int(input('Введите число: '))
if num <= 30000:
break
else:
print('Ошибка: Число не должно превышать 30000')
if num % 5 == 0:
if number:
if num > number:
number = num
else:
number = num
print(number)
Байты,Килобайты,Мегобайты,Гигобайты,Терабайты
Графический, письменный