Егэ по инфе 25 номер 3. правильное ли у меня решение? ? вот ссылка на -->
вот мое решение:

program abc;

const n = 6;

var
a: array[1..n] of integer;
i, j, k: integer;

begin

for i: = 1 to n do
readln(a[i]);

k: =0;

for i: = 2 to n-1 do begin

if (a[i] < a[i-1]) and (a[i] < a[i+1]) then

if k = 0 then
k: = a[i]
else
if k > a[i] then
k: = a[i];
end;

writeln();
writeln(k);

end.

elizavetafilip2    2   26.12.2019 22:02    1