Problem [Pascal]
ant3k - 13-12-2005 08:22
Problem [Pascal]
Napisz program, który w 100-elementowej tablicy liczb całkowitych:
a) umieszcza liczby losowe z przedziału [0-999]
b) a następnie wyszukuje pozycję oraz wartość liczby minimalnej i maksymalnej
Uwaga
Do generowania liczb losowych wykorzystaj funkcję standardową random(n).
Pomocy, nie wiem jak to zrobić :(
ant3k - 13-12-2005 18:39
program zad2;
uses crt;
const n=100;
var i:integer; A:array[1..n] of integer;
type tab=array[1..n] of integer;
procedure losuj(var A:tab);
var i:integer;
begin
randomize;
for i:=1 to n do
A[i]:=random(999);
end;
procedure Max_min(var A:tab; var max,min:integer);
var i:integer;
begin
for i:=2 to N do
min:=A[i];
max:=A[i];
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
end;
begin
losuj(A);
max_min;
readkey;
end.
Tak to napisałem, ale coś nie działa :/
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
[MSSQL2000] Problem z =?ISO-8859-2?Q?tabel=B1/indeksem/zapytanie?==?ISO-8859-2?Q?m_czy_b=B3=B1d_w_bazie_danych=2E=2E=2E?=
mysql i mysql-front, problem
String line; if (line=="cos"){...}....problem
Problemy z =?ISO-8859-2?Q?instalacj=B1_PostgreSQL_na_syste?==?ISO-8859-2?Q?mach_Windows?=
[postgres] Problem z =?ISO-8859-2?Q?zmian=B1_struktury_i_z?==?ISO-8859-2?Q?ale=BFno=B6ciami=2E?=
[oracle] =?ISO-8859-2?Q?zmia=BFd=BFony_przez_problem=3A_za?==?ISO-8859-2?Q?pytanie_do_hierarchi?=
Problem z wartościami w MySQL :( [ MySQL and ASP and VBScript ]
[PGSQL] czy ktos mial problemy z initdb pgsql 8.1 ?
[MySQL] Problem z zapisem danych w bazie danych
Problem z mysql - can't connect to MySQL/nietypowo...
zanotowane.pldoc.pisz.plpdf.pisz.plcoolinarny.opx.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
