20100128587
pogoda.pas
■•ogram liczby; ses crt;
u*
tab : array [..161 of integer; i:integer;
egin
clrscr;
for i:= to i’ do
bogiń
writoC'podaj ',i,’ liczbo *>; readln<tab( i 1>;
end;
for i:»l to 10 do write<tabEil, ' '); writeln;
for i: =* to L0 do l if tab[i]> then witeCtabl i ]> ; for i:*! to 10 do writoln ;
~if tabliK then write<tab[ i ]>;
readln
Wyszukiwarka
Podobne podstrony:
PTO 2 4.-Dana jest procedura X procedurę A(var/:array[l...łiJ of integer); procedurę
76909 programstr1 Program 6. PROGRAM {$1-} program Elektrownie; uses Graph,Crt,Kursoryn; const tab :
zad 1 - ZAD_.13.PAS -1 (!=[■]=-- ZAD_1. PAS -=[t]=n {ZADNIE_1> uses crt; const n=10; type
DSC00476 uses crt; ta§lica-array[l..100,1..100] of intcger; var tztablica; k.wrbyte; proceduro wprow
xistent pas. Par ses resultats initiaux ainsi que par ses difficultes dans la realisation, 1 autoges
DSC00473 • X program t71: uses crt; const n-10; ta§?ica-array[l..n]of integer;
67462 skanuj0071 (43) 84 PHP i MySQL dla każdego <body> <?php $tab = array< 1 &nbs
zad N0NAME02.PAS 5=[ !=[■]=- {zad 14> uar doros1 i,dz iec i,dochod:integer;
58 (261) typc TTablica - array [1..10] of Byte; var Tablical, Tablica2 : TTablica; I &nb
pto2 25 4. Dana jest procedura A" ............ procedurę AT(var /:array[l...n] of integer);-
Given array of mtegers fmd the maximal possible sum of some of its k consecutive elements Example fo
< 11 >> Techniki algorytmiczne - przybliżone i dokładne type Tablicaln =array(l..Maxn] of
Tab. 13 Assessment of the period of duration of an opportunity Tab. 13 Ocena okresu
więcej podobnych podstron