Zadanie pascal

Question

Witam 

proste zadanie do rozwiazania? niby proste ale nie wiem jak zrobic.

 Napisz kod procedury, który wypełni tablice tem danymi losowymi z przedziału (20,100) (rozmiar tablicy podany przez użytkownika);

type tab=array of real;
var tem:tab;

 

Answer 1

Juz to rozgryzłem :) 

program project1;
type tab=array of real;
var temperatura:tab;
procedure wyp(var tem:tab);
var i,s:integer;
begin

writeln('podaj rozmiar tablicy s:');
readln(s);
setlength(tem,s);
randomize;
for i:=1 to s do
begin

temperatura[i]:=random(100);

writeln(tem[i]:2:2);

end;
end;
begin
wyp(temperatura);
readln;


end. 

 

Comments

to ci nie da zakresu od 20 do 100 tylko od 0 do 99

---

wiem wiem ale to nie istotne tak tylko inny zakres podałem a pózniej zapomniałem zminić :p