Решите через while.напишите программу, которая в - вопрос №10531402 от Pandochkalove7 26.11.2021 19:48

Question

Информатика: Решите через while.напишите программу, которая в последовательности натуральных чисел определяет минимальное число, программа получает на вход количество чисел в последовательности, а затем сами числа, введённые числа не превышают 3

Pandochkalove7 · Answer

i+=1 - это тоже самое i:=i+1Var a, i, min, n: integer; Begin Write( Количество чисел = ); Read(n); min:=30000; while i n do Begin Read(a); i+=1; If min a then min:=a End; Writeln( min = , min); End....