Решите через while.напишите программу, которая - вопрос №10530725 от 228эрагон 13.12.2021 19:49

Question

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

228эрагон · 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....