Дан массив действительных чисел b[n]. сформировать из него новый массив c[n], выбросив из него максимальные элементы. пример массив b: 2 3 5 8 5 2 8 5 4 8 массив c: 2 3 5 5 2 5 4
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var b:=SeqRandom(ReadInteger('n='),-990,990).Select(x->x/100).ToArray; b.Println; var max:=b.Max; var c:=b.Where(t->t<>max).ToArray; c.Println end.
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
function linelength(x1, y1, x2, y2: integer): real; begin linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;
procedure ger(a, b, c: real); var p: real; begin p := (a + b + c) / 2; sc := sqrt(p * (p - a) * (p - b) * (p - c)); end;
begin write('1:');readln(x1, y1); write('2:');readln(x2, y2); write('3:');readln(x3, y3); write('4:');readln(x4, y4); ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3)); s := s + sc; ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3)); s := s + sc; writeln(s); end. //3) var a, b, c: integer;
function sce(var a: integer): integer; var sc, c: integer; begin while a <> 0 do begin c := a mod 10; a := a div 10; sc := sc + c; end; sce := sc; end;
begin read(a, b, c); if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны'); end.
// Внимание! Если программа не работает, обновите версию!
begin
var b:=SeqRandom(ReadInteger('n='),-990,990).Select(x->x/100).ToArray;
b.Println;
var max:=b.Max;
var c:=b.Where(t->t<>max).ToArray; c.Println
end.
Пример
n= 15
-2.32 8.99 2.24 1.88 -0.42 1.2 4 6.15 -3.35 3.88 -0.51 9.64 -0.21 7.9 -6.75
-2.32 8.99 2.24 1.88 -0.42 1.2 4 6.15 -3.35 3.88 -0.51 -0.21 7.9 -6.75