Pascal

01) program elementos_comuns_vetores; uses crt; var a:array[1..5] of integer; b:array[1..8] of integer; x,y,z:integer; begin z:=0; writeln('DIGITE O PRIMEIRO VETOR: '); for x:=1 to 5 do readln(a[x]); clrscr; writeln('DIGITE O SEGUNDO VETOR: '); for y:=1 to 8 do readln(b[y]); clrscr; for x:=1 to 5 do for y:=1 to 8 do if (a[x])=(b[y]) then begin writeln('O ELEMENTO, ',a[x],' E COMUNS AOS DOIS VETORES!'); end else z:=z+1; if (z>=40) then writeln('NENHUM ELEMENTO E COMUM AOS DOIS VETORES!');

readkey; end. 02) program produto_escalar; uses crt; var n:array[1..10] of integer; m:array[1..10] of integer; x:integer; p:real; begin writeln('DIGITE DEZ NUMEROS: '); for x:=1 to 10 do readln(n[x]); clrscr; writeln('DIGITE OUTROS DEZ NUMEROS: '); for x:=1 to 10 do readln(m[x]); clrscr;

for x:=1 to 10 do begin p:= p +((n[x])*(m[x])); end;

writeln('O PRODUTO ESCALAR DE P DE A POR B E: ',p:6:0);

readkey; end. 03) program quadrados_vetor; uses crt; var a:array[1..10] of integer; x:integer; soma:real;

begin writeln('DIGITE DEZ NUMEROS: '); for x:=1 to 10 do readln(a[x]); clrscr; soma:=0; for x:=1 to 10 do begin soma:= soma + sqr(a[x]); writeln(a[x],' ELEVADO AO QUADRADO E: ',sqr(a[x])); writeln(''); end; writeln(''); writeln('A SOMA DOS QUADRADOS DOS ELEMENTOS E: ',soma:6:0);

readkey; end. 04) program vetores_pares_vetores_impares; uses crt; var a:array[1..20] of integer; par:array[1..20] of integer; impar:array[1..20] of integer; x,y:integer; begin writeln('DIGITE 20 NUMEROS: '); for x:=1 to 20 do