Galera ta dando um erro na hora de compilar esse código, o erro é na variavel vet…
o que pode ser?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
vet : array[1..12] of integer;
chuvas : vet;
cont: integer;
media_chuvas, media_seca, soma_chuva, soma_seca: real;
begin
for cont:= 1 to 12 do
writeln ('Informe o volume de chuvas do mês', cont);
readln (chuvas[cont]);
end;
soma_chuva := 0;
soma_seca:=0;
for cont := 1 to 12 do
soma_chuva:= soma_chuva + soma_chuva[cont];
if (cont >= 4 and cont <= 8) then
soma_seca:= soma_seca + chuvas[cont];
end;
end;
media_chuvas := soma_chuvas/12;
media_seca := soma_seca/5;
writeln ('As medias de chuvas anual é de', media_chuvas, 'e na seca', media_seca);
end.
e tabem ta dando erro no end do primeiro for…
desde já grato.