Хованский 27 ноября 2019 в 12:13
Дан одномерный массив натуральных чисел из 12 элементов найдите наименьшее из четных чисел, входящих в массив
Дан одномерный массив натуральных чисел из 12 элементов найдите наименьшее из четных чисел, входящих в массив
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]lt;k) then k:= a[i] end;writeln (k);end.
Для комментирования необходимо зарегистрироваться на сайте