Дано к-ть членів послідовності n,члени послідовності а1,.знайти к-ть макс і мін елементів, якщо к-ть макс більше за мін вивечти ьакс, якщо мін більше за макс вивести мін
Const N = 30; Var A:array[1..N] of integer; i:integer; Max,Min,kMax,kMin:real; Begin For i:= 1 to N do Begin A[i]:=random(21)-10; Write(A[i],' ') End; Max:=A[1]; Min:=A[1]; For i:= 2 to N do Begin if Max<A[i] then Max:=A[i]; if Min>A[i] then Min:=A[i]; End; For i:= 1 to N do Begin if A[i]=Min then kMin:=kMin+1; if A[i]=Max then kMax:=kMax+1; End; WriteLn; if kMax>kMin then Write('Max'); if kMax<kMin then Write('Min'); if kMax=kMin then Write('Max = Min') End.
Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
Питаются кагуаны исключительно растительной пищей — листвой, почками, цветами и деревьев. большую часть рациона составляют молодые листья. редко вокруг какого животного ведется столько споров, как вокруг кагуанов. это животное, размером с кошку, одни причисляют к «летающим» землеройкам, другие к лемурам, а некоторые выделяют когуана вообще в отдельный отряд. внешне, особенно мордочкой, он действительно похож на лемура, а вот зубы типичны для грызунов. самая же отличительная черта когуана – перепонка, с которой он летает. перепонка натянута от подбородка через концы лап до кончика не длинного хвоста и представляет собой этакий парашют. кстати, парашют у кагуаны самый большой среди «летающих» животных (кроме птиц и летающих мышей к полетам причастны белки-летяги, сумчатые летяги, обезьяны колобус, летающие ящерицы или драконы, а также летающие лягушки и даже рыбы)
N = 30;
Var
A:array[1..N] of integer;
i:integer;
Max,Min,kMax,kMin:real;
Begin
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
Begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
End;
For i:= 1 to N do
Begin
if A[i]=Min then kMin:=kMin+1;
if A[i]=Max then kMax:=kMax+1;
End;
WriteLn;
if kMax>kMin then Write('Max');
if kMax<kMin then Write('Min');
if kMax=kMin then Write('Max = Min')
End.