Question

De la tastatura se citeste un numar intreg n,n<100000.Elaborati un program cu functii prin intermediul caruia se va determina :
Cifra maxima
(IN LIMBAJUL PASCAL )
VA ROG URGENT!!!!!

Answer 1

program p2;

type vector=array[1..100] of real;

var A:vector;i,n:integer;P,S:real;

procedure proSum(A:vector;n:integer;var s,p:real);

var i:integer;

begin

p:=1;S:=0;

for i:=1 to n do begin

if i mod 2=0 then P:=P*A[i];

if i mod 2=1 then S:=S+A[i];

end;

end;

Begin

write('n=');readln(n);

writeln('introdu elementele vectorului');

for i:=1 to n do

readln(A[i]);

Writeln('Vectorul introdus este:');

for i:=1 to n do Write(A[i]:3);

writeln;

ProSum(a,n,P,S);

if S=P then writeln('Da')else writeln('Nu');

readln

end.

succes