Vetores. Рrogram ex1vetores
Abstract: Vetores. Рrogram ex1vetores. Pesquise 862.000+ trabalhos acadêmicosPor: saw2 • 15/10/2014 • Abstract • 1.243 Palavras (5 Páginas) • 220 Visualizações
Vetores
1)
program ex1vetores;
uses wincrt;
var
vetor1:array[1..10] of integer;
i,soma:integer;
media:real;
begin
for i:=1 to 10 do begin
writeln('digite o ',i,' numero');
readln(vetor1[i]) ;
end;
for i:= 1 to 10 do begin
soma:= soma + vetor1[i];
end;
media:= soma div 10;
writeln('a soma eh ',soma);
writeln('a media eh ',media:5:2);
delay(30000);
end.
2)
program ex2;
uses wincrt;
var
vetor1: ARRAY[1..10] of integer;
i,x,y,soma,soma1:integer;
media,porc:real;
begin
x:=0;
y:=0;
for i:=1 to 10 do begin
writeln('digite um numero real');
readln(vetor1[i]);
end;
for i:= 1 to 10 do
begin
if (vetor1[i]<0) then
begin
soma:=soma+vetor1[i];
x:=x+1;
end
else if (vetor1[i]>0) then
begin
soma1:=soma1+vetor1[i];
y:=y+1;
end
end;
if (x>0) then begin
media:=(soma div x );
end;
porc:=(y*10);
writeln('a media eh ',media:5:2);
writeln('a porc eh ',porc:5:2,'%');
delay(30000);
end.
3)
program ex3vetores;
uses wincrt;
var
vetor1:array[1..5] of integer;
vetor2:array[1..5] of integer;
i:integer;
begin
for i:= 1 to 5 do begin
writeln('digite o ',i,' numero');
readln(vetor1[i]);
end;
for i:= 1 to 5 do begin
vetor2[i]:=(vetor1[i]*(-1));
end;
for i:= 1 to 5 do begin
writeln('vetorA=',vetor1[i],' vetorB=',vetor2[i]);
end;
delay(30000);
end.
4)
program ex4;
uses wincrt;
var
vetor1:array[1..5] of integer;
i,x,y,z:integer;
begin
x:=0;
y:=0;
z:=0;
for i:= 1 to 5 do begin
writeln('digite o ',i,' numero');
readln(vetor1[i]);
end;
for i:= 1 to 5 do begin
if (vetor1[i]>0) then begin
x:=x + 1;
end
else if (vetor1[i]<0) then begin
y:=y +1;
end
else if (vetor1[i]=0) then begin
z:=z +1;
end
end;
writeln('tem ',x,' numero(s) positivo(s)');
writeln('tem ',y,' numero(s) negativo(s)');
writeln('tem ',z,' numero(s) nulo(s)');
delay(30000);
end.
Vetores
1)
program ex1vetores;
uses wincrt;
var
vetor1:array[1..10] of integer;
i,soma:integer;
media:real;
begin
for i:=1 to 10 do begin
writeln('digite
...