Const n=10; var a:array[1..n] of integer; k,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(9)+2; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('Четных: ',k,' нечётных: ',n-k); end.
Уровень 1. <body> <p align=center><font color=blue size=4 face "Tahoma"> <b>Алгоритмы</b> </font></p> <p align=center><i>Основные блоки</i></p> <img align=left src=bloc3.gif width=200 height=100 hspace=40 vspace=10 alt="Блок Процесс"> <ul type="square"> <li>блок "модификация" (обозначает начало цикла); </ul> </body> ---- Уровень 2. добавить <ul> Вставить фрагмент кода из задания. </ul> ТЕКСТ добавляем заголовки таким образом: <a name="one" >Язык С и С++</a> ТЕКСТ <a name="two" >Язык Pascal</a> ТЕКСТ <a name="three" >Basic</a> ТЕКСТ <a name="four" >Visual Basic</a> ТЕКСТ <a name="five" >FORTRAN</a> ТЕКСТ <a name="six" >ALGOL</a> ТЕКСТ
1) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=cos(x*x); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
readln; closegraph; end.
closegraph; end. 2) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=1/(x*x+1); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;