Решите через while.напишите программу, которая - вопрос №10530500 от annasmaylick 17.01.2023 22:47

Question

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

annasmaylick · 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....