Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
Ответ 4, так как задано условие стоимость не более 5, значит стоимость меньше или равна 5. В 4 варианте ответа А > B - 2 и из B > D - 3, в сумме не более 5.
номер 17:
номер 19 не видно до конца
Отдельные слова перенести указатель мыши на нужную 42 выглядит двойной щелчок левой кнопкой мыши строка текста с 1 по 200 указателя мыши в левой границы строки так чтобы он принял вид наклоненный стрелки 2 выполнить шевчук левой кнопкой мыши абзац 1 по 200 указатели мыши в левый бок границы текста так чтобы он принял вид наклонены стрелки второе выписать ст.30 выполнить тройное щелчок левой кнопкой мыши весь текст весь текст 1 по 200 указатели мыши клевый границы абзаца так чтобы он принял вид наклоненный сделки выполнил удалился значок левой кнопкой мыши произвольный участок текста 1 установить указатели мыши над первым символам выделяемого фрагмента 2 нажать левую кнопку мыши отпускать ее переместить мышь в конце выделяемые фрагменты