Question

program vi;
uses crt;
var a: array [1..100] of integer ;
Pi,n:integer;
begin clrscr;
write('dati nr de elementelor .>;
readln (n);
writeln('elementele vectorului');
for i:=1 to n do
readln(a[i]);
P:=1;
for i:=1 to n do
if (a[i] mod 5=> then P:=P> a[i];
write produs=",P);

readln
end.

(sa se numere cate elemente mai mari ca 4 sunt in tablou)​

Answer 1

Răspuns:

uses crt;

var a: array [1..100] of integer ;

i,n, cate:integer;

begin

clrscr;

write('dati nr de elementelor ');

readln (n);

writeln('elementele vectorului');

for i:=1 to n do

readln(a[i]);

cate:=0;

for i:=1 to n do

         if (a[i] > 4) then

                  cate:=cate+1;

write 'Numarul elementelor maii mari decat 4 este ',cate);

readln;

end.

Explicație: