• Lenguaje

    Pascal

  • Descripción

    Calcular el mayor de 5 números, hacer proceso 10 veces.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program MayorDe5Numeros10Veces;
uses crt;

var i : integer;
var a, b, c, d, e : real;
var mayor : real;
begin
    for i:=1 to 10 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de a: ');
        readln (a);
        write ('Ingresa el valor de b: ');
        readln (b);
        write ('Ingresa el valor de c: ');
        readln (c);
        write ('Ingresa el valor de d: ');
        readln (d);
        write ('Ingresa el valor de e: ');
        readln (e);
        if a>b then
            begin
                mayor := a;
            end
        else
            begin
                mayor := b;
            end;
        if mayor<c then
            begin
                mayor := c;
            end;
        if mayor<d then
            begin
                mayor := d;
            end;
        if mayor<e then
            begin
                mayor := e;
            end;
        writeln ('Valor de mayor: ', mayor:0:6);
        writeln;
    end;
end.