Alguien le sabe a programación?
Respuestas a la pregunta
Respuesta:
1 no lo sé wbejebnjwnqkw
Respuesta:
Primer ejercicio
type
vectores = array[0..7] of integer;
var
vector1:vectores;
sumaAcumulada,mayoresa50,acumuladomayor36,i: integer;
begin
for i := 0 to 7 do
begin
writeln('Ingrese un numero (',(i+1),'/8)');
readln(vector1[i]);
end;
sumaAcumulada:=0;
mayoresa50:=0;
acumuladomayor36:=0;
for i := 0 to 7 do
begin
sumaAcumulada+=vector1[i];
if(vector1[i]>36) then begin
acumuladomayor36+=vector1[i]
end;
if(vector1[i]>50) then begin
mayoresa50+=1;
end;
end;
writeln('La suma acumulada de todos los valores es: ',sumaAcumulada);
writeln('La suma acumulada de todos los valores mayor a 36 es: ',acumuladomayor36);
writeln('La cantidad de valores mayor a 50 es: ',mayoresa50);
end.
Segundo ejercicio
type
vectores = array[0..7] of integer;
var
vector1:vectores;
vector2:vectores;
resultante:vectores;
i: integer;
begin
for i := 0 to 3 do
begin
writeln('Ingrese un numero para el vector 1 (',(i+1),'/4)');
readln(vector1[i]);
end;
for i := 0 to 3 do
begin
writeln('Ingrese un numero para el vector 2 (',(i+1),'/4)');
readln(vector2[i]);
end;
for i := 0 to 3 do
begin
resultante[i]:=vector1[i]+vector2[i]
end;
writeln('El vector resultado de la suma del vector 1 y vector 2 es: ');
for i := 0 to 3 do
begin
write(resultante[i],', ');
end;
end.