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.{немного нерационально но работает=)}
Ответ дал: Гость
Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.
Ответ дал: Гость
если делать, как самоделкин, стыковать кубики столбиком,
то получится так:
var
n: integer;
begin
readln(n);
writeln(4*(2*n+1),' спичек понадобится');
end.
а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.
Ответ дал: Гость
обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.
Популярные вопросы