Archivo por meses: Dic PM


Procedimiento y vector, suerte 1

program multi; var    vec1, vec2: array [1..10] of integer;    mult: real;    arch: text;    j: integer; procedure multiplo(num1:real);var    i:integer;begin     for i:=1 to 10 do         vec2[i]:=vec1[i]*trunc(num1);end; function entero(num2:real):boolean;begin     if (num2/trunc(num2))=1 then         entero:=true     else         entero:=false;end; begin    for j:=1 to 10 do        repeat              begin                  writeln(‘Ingrese el dato de vector mayor que cero: ‘);                  readln(vec1[j]);              […]