Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
I=1800 байт u=14400 t=? и решаешь в два действия есть 2 варианта 1-14400 : 8= 1800 байт/с или 2- 1800 • 8 =14400 и второе смотря как решал 1800 : 1800 =1 секунда ну вроде так
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Текстовые: leto.doc dog.txt cat.jpg music.txt otvet.txt
Графические: aaa.bpm mama.jpg cat.jpg game.bpm
Программы: boy.exe box.exe
Var
a,b,c,d,x1,x2:real;
begin
writeln('Введите коэффициенты');
readln(a,b,c);
d:=b*b-4*a*c;
if d < 0 then writeln ('Нет корней')
else
if d=0 then begin
x1:=-b/(2*a);
writeln('Х= ',x1);
end
else
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('Х1=',x1,' Х2=',x2);
end;end.