Химер, забирай задачи Program Himer1; Var a : array [1..30] of integer; max1, max2, p : integer; i, ind1, ind2 : byte; BEGIN Writeln ("Введите массив:"); for i := 1 to 30 do Read (a); max1 := a[1]; ind1 := 1; max2 := a[30]; ind2 := 30; for i := 1 to 10 do if a > max1 then begin max1 := a; ind1 := i; end; for i := 21 to 30 do if a > max2 then begin max2 :=a; ind2 := i; end; p := a[ind1]; a[ind1] := a[ind2]; a[ind2] := p; Writeln; for i := 1 to 30 do Write (a," "); END.
Ссылка на пост
ts 28 апр 2008 в 18:09
Пожалуста памагите. Это у меня вапрос жизни и смерти. задача такая. пусть элементами прямоугольного равнобедренного треугольника; сторона а, площадь s, высота h, радиус вписанной окружнсти r, радиус описанной окруности R. составить программу которая по заданному номеру и значению соответствующего элемента вычисляла бы значения остальных элементов. очень сильно прошу помогите.надо к зафтрашнему дню. пожалуста. заранее благодарен.