Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
Var a,b:integer;
begin
read(a,b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('a=',a,' b=',b);
<span>end.</span>
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Write('S=',Range(1,n).Select(x->sqrt(3*x)).Sum)
end.
<u>Пример</u>
n= 5
S=14.5186255116972
1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.