Program p1;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10);
writeln('Массив:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
for i:=1 to 10 do a[i]:=a[i]+i;
writeln('Результат:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
end.
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.
Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
Begin
if (x < -3) then y:=2*x-5*Sin(x)
else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
else y:=ln(4*x+Sin(x));
if (y > 0) then
Begin
S:=S+y;
k:=k+1
End;
WriteLn('y(',x:0:1,') = ',y:0:3);
x:=x+0.2
End;
WriteLn('Sr = ',S/k);
ReadLn
End.
Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.