program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Ответ дал: Гость
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
begin
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
begin
k: =k+1;
b[k]: =a[i];
end;
end;
for i: =1 to k do
writeln(b[i]);
end.
2)
var
a,b: array [1..100] of integer;
i,j,k: integer;
begin
randomize;
readln(k);
j: =0;
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
writeln(a[i]);
for i: =1 to 19 do
begin
if a[i]*a[i+1]> 0 then
begin
j: =j+1;
b[j]: =a[i];
j: =j+1;
b[j]: =k;
end
else
begin
j: =j+1;
b[j]: =a[i];
end;
end;
j: =j+1;
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
var
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
begin
randomize;
readln(k1);
readln(k2);
if k1< k2 then
begin
for i: =1 to 20 do
begin
a[i]: =random(135)-45;
writeln(a[i]);
end;
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
b[i]: =a[i];
j: =k2;
for i: =k1 to k2 do
begin
b[j]: =a[i];
j: =j-1;
end;
for i: =1 to 20 do
writeln(b[i]);
end;
end.
Ответ дал: Гость
по формуле включений-исключений
35 = 24 + 18 + 12 - 5 - 10 - 8 + х
х = 4
чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения
Ответ дал: Гость
program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do begin y: =x*h; writeln('цена за ',h*1000,' грамм ',y,' руб'); h: =h+0.1 end; end.
Популярные вопросы