👤
GOLDWYNID
a fost răspuns

Se considera un vector t[1..n] de numere intregi (pozitive si negative), n<=100. Scrieti codul programului care va contine un subprogram procedura, care calculeaza diferenta numerelor divizibile la 5 de pe pozitii pare a vectorului dat.

În pascal vă rog.

Răspuns :

Răspuns:

program div5;

const nmax=100;

type vector=array[1..nmax] of integer;

var v:vector;

   n,i,dif: integer;

procedure diferenta(v:vector; n:integer; var dif:integer);

var j,d:integer;

begin

  j:=2;

  while (v[j] mod 5 <>0)and(j<=n) do inc(j,2);

  if j>n then dif:=0

  else

   begin

      d:=v[j];

      inc(j,2);

      while j<=n do

        begin

          if v[j] mod 5 =0 then d:=d-v[j];

          inc(j,2);

        end;

      dif:=d;

   end;

end; {diferenta}

begin {program principal}

 read(n);

 for i:=1 to n do read(v[i]);

 dif:=0;

 diferenta(v,n,dif);

 writeln(dif);

end.

Explicație:

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari