Задача 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.
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.
