1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
<span>end.
2. </span>Program fg;
<span>Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
<span>end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
<span>end.</span></span></span>
Уровень 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>
ТЕКСТ
<span>X -переменная с реальным типом.А у тебя она integer.
</span>
Это на первую
program chislo;
<span> var a,b,c,k,x: integer;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
k:=a*b*c;
writeln('произведение чисел = ',k);
readln;
End.
Вторая Задача
</span>
program chislo;
var a,c,x: integer;
k:real;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
c:=x mod 10;
k:=a/c;
writeln('деление чисел = ',k);
readln;
<span>End.</span><span>
</span>
