№ 6

 Задача 6*var B:array [1..100] of integer;
x,n:integer;
begin
writeln('введите кол-во учащихся в классе'); Readln (N);
writeln('введите рост учащихся');
for var i:=1 to n do
begin
write('учащийся номер ', i,':');
readln (B[i]);
end;
end.

Задача 7*

var T:array [1..100] of real;

a,b, n:integer;

begin

writeln('введите кол-во дней'); Readln (N);

writeln('введите интервал a и b');

readln(a,b);

for var i:=1 to n do

begin

T[i]:=random(a,b)/100;

writeln(i,'декабря температура была =', T[i]);

end;

end.