Это пластинка, она небольшая,
на ней сохранится картинка любая (диск)
стоит дом. кто в него войдет - тот знаний наберет (школа)
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка
var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.