На материнскую плату (она же системная плата) ПК устанавливаются:
слоты расширения, жесткий диск и оперативная память.
(но это только из данного списка. На самом деле там намного больше деталей.)
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
Ввод: r ^ x ^ y С/П.
x^2 <-> x^2 + <-> x^2 - x>=0 11 1 С/П 0 С/П
Вывод: 1, если попадает, иначе 0.
Var
i,s,n:integer;
begin
n:=0; s:=0;
for i:=0 to 99 do
if i>9 then
if i div 10 > i mod 10 then begin
n:=n+1; s:=s+i;
end;
Writeln('Сумма ',s,', ср. арифметическое ',s/n)
end.
<u>Результат</u>
Сумма 2970, ср. арифметическое 66