Int digits[], d,n;
int cnt_min=0; int cnt_max=0;
for(int i=0; i<x; i++) <span>cin >> d;
</span>int d_max = digits[0];
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
int d_min = digits[0];
for(int i=0; i<x; i++) { if(d_min > digit[i]<span>) </span>d_min = digit[i];<span>}
</span>for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];<span>}
</span>for(int i=0; i<x; i++) { if(d_max == digit[i]) cnt_max++;<span>}
</span>for(int i=0; i<x; i++) { if(d_min == digit[i]) cnt_min++;<span>}
</span>cout << "min= " << cnt_min << " max= " << cnt_max << endl;
вторая задача - подумай сам, она почти аналогичная
Всего восемь путей( по крайней мере я столько нашла)
А б е к
А в к
А г к
А д д к
А д ж г к
А д ж г в к
А б в к
А г ж к
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;
<span>Для ввода какой-либо информации в память компьютера. Например, клавиатура может использоваться для ввода текста.</span>