Начало
ввод a,b,c;
d=a;
если b>d тогда d=b
если c>d тогда d=c
вывод d;
конец
что-то вроде этого
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMin;
Writeln('Min a[', i + 1, ']=', a[i]);
i := a.IndexMax;
Writeln('Max a[', i + 1, ']=', a[i])
end.
<h2>-6 -10 9 0 -9 2 10 -7 1 3</h2><h2>Min a[2]=-10</h2><h2>Max a[7]=10</h2>
Блин, ты ничего не прикрепил..... Прикрепи..... Помогу))