Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do if a[i]<0 then write(i,' ');
end.
function f(x:real):real;
begin
f:=2*sin(x)*sin(x)+1;
end;
var x:real;
begin
readln(x);
writeln(f(x));
end.
В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.<span> </span>
Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.