<span>Составленный в определённом порядке перечень каких-н. однородных предметов (книг, экспонатов, товаров и т. п.).</span>
Const n =9; // Задаем кол-во элементов в массиве
var
i,sred:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
if i*i*i = 1000 then break;
a[i]:= i*i*i;
sred:=sred+a[i];
end;
writeln('Среднее значение элементов = ', sred/n);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
var n := ReadInteger('n=');
var m := MatrRandom(n, n); m.Println;
var max := m.ElementsWithIndexes.MaxBy(t -> t[0]);
Println($'Максимальный = {max[0]}');
Println($'Сумма строки = {m.Row(max[1]).Sum}');
Println($'Сумма столбца = {m.Col(max[2]).Sum}');
end.
Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.