Клавиатура утверждала. что главнее она ведь без нее печатать тексты нельзя. Память доказывала, что она главнее всех, ведь она все, всегда помнит. Процессор говорил, что главный он, потому что компьютеру работать. А монитор считал, что главный он-ведь без монитора и процессор, и клавиатура и память не нужна. Долго они спорили. Пришёл хозяин компьютера-мальчик по имени Ваня. Он увидел, что они ссорятся и объяснил им: что они все дополняют компьютер, ведь без памяти, монитора и клавиатуры-компьютер работать не будет. Они все поняли и жили не тужили.
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
не указал ты язык, пишу на луа
for i = 0, #massiv do
local null = false
if tostring(i):find("0") then
continue
end
end