|
[30 Jun 2004|01:39am] |
| [ |
mood |
| |
kuteliigs |
] |
| [ |
music |
| |
R.Z.D.N.C.&The Popaholics - Psihodeeliskaa Mikja Definiicija |
] |
Vieta: Riigas Laukjene
Notikums: Kedu party
noraava seju - ![[info]](http://klab.lv/img/userinfo.gif) lii & sady - pusotrs litrs chuuskas
{lietotaajs izveido programmu kas liek piepildiit masiivu no 1 liidz 100 ar
gadiijuma skaitliem dators atrod lielako bet neizvada, liek lietotajam mineet
tikai izvada norades par skaitla intevaalu.}
program maxim;
const max=100;
var
a: array[1..max] of integer;
x,s,y,i: integer;
begin
randomize;
y:=0;
for i:=1 to max do
a[i]:=random(99)+1;
s:=a[1];
for i:=2 to max do
if a[i]> s then s:=a[i];
writeln (' mini nu!');
repeat
readln(x);
if x>s then writeln('par daudz');
if x .....{turpinaajums sekos}
|
|