Fundamentos

Ler de 1 a 10 e informar todos depois: Program ex1 ; var num:array[1..10] of integer; i:integer;  Begin for i:=1 to 10 do Begin write('Informe o ',i,' valor do vetor:'); read(num[i]); end; write('Os valores do vetor são:'); for i:=1 to 10 do begin write(num[i],' '); end;            End.

Ler de 1 a 10 e dar média: Program ex1 ; var num:array[1..10] of integer; i,soma:integer; media:real;  Begin  soma:=0; for i:=1 to 10 do begin write('Informe o ',i,' valor do vetor:'); read(num[i]); soma:=soma+num[i]; end; media:=soma/10; writeln('Os valores do vetor são:'); for i:=1 to 10 do begin write(num[i],' '); end; write('A média do vetor é:',media:0:2);            End.

Procurar o maior numero real: Program exercicio_1_vetor ; var num:array[1..10]of real; i:integer; im:real;    Begin  im:=0; for i:=1 to 10 do  begin  write('Informe o ',i,' valor:');  read(num[i]);  end;  for i:=1 to 10 do  begin  if(num[i]>im)then  im:=num[i];  end;  write('O maior número do vetor é ',im:0:2,'.');   End.

Program exercicio_2_vetor ; var num:array[1..10]of real; mediap,somap,pacima:real; nome:array[1..10]of string; p,qtdam:integer;  Begin  somap:=0;  qtdam:=0; for p:=1 to 10 do begin write('Informe o nome da ',p,' pessoa:'); read(nome[p]); write('Informe o peso da ',p,' pessoa:'); read(num[p]); somap:=somap+num[p]; end; mediap:=somap/10;          for p:=1 to 10 do begin  if (num[p]>mediap)then begin qtdam:=qtdam+1; end; end; writeln('A média de peso das pessoas é de:',mediap:0:2); write('A quantidade de pessoas com peso acima da média é:',qtdam);                    End.

...