Регистрация
евген115
17.11.2021 12:21
Информатика
Есть ответ 👍

Егэ по инфе 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.

157
204
Посмотреть ответы 1

Ответы на вопрос:

JanieMoor
JanieMoor
4,8(8 оценок)
1.5 кбайт  = 1,5* байт  =  1.5* бит. 1.5* бит :   бит/с =  с = 8 с.

Популярно: Информатика