Написать алгоритм ввода значений в массив температур

Var
i,n : integer;
t : array[1..100] of integer;
Begin
for i:=0 to 100 do begin
Write('Enter temperature: ');
Readln(t[i]);
end;
end.