N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mn=10e10;
</span><span>mx=0; p=-1;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>0 and int(lst[i]) \% 2==0):
</span><span> if (int(lst[i])<mn):
</span><span> mn=int(lst[i]);
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> p=1;
</span><span>if (p<0): print(p,p);
</span><span>else: print(mn,mx);
</span>задайте размер массива 6
<span>-3 -4 -6 5 7 9
</span><span>-1 -1
</span>
задайте размер массива 6
<span>-2 -1 2 3 5 6
</span><span>2 6
</span>
Ответ:
program arrdiap;
var
N, A, B, i: Integer;
M: array of Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength (M, N);
Randomize;
for i := Low (M) to High (M) do begin
M [i] := Random (100);
Write (M [i], ' ');
end;
WriteLn;
Write ('Введите диапазон A, B: ');
ReadLn (A, B);
WriteLn;
WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');
for i := Low (M) to High (M) do begin
if (M [i] >= A) and (M [i] <= B) then
Write (M [i], ' ');
end;
ReadLn;
end.
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>