Паскаль. почему это решение не верно? студент валера являет собой классический пример лентяя. на занятия он практически не ходит, и только в конце семестра появляется в университете и сдает ”хвосты”. его заветная мечта: найти такой день, когда можно будет сдать сразу все долги. у него есть расписание работы преподавателей, из которого точно известно, с какого и по какой день месяца каждый преподаватель ежедневно будет доступен. валере написать программу, которая по расписанию будет определять, сможет ли валера сдать все долги за один день или нет. var i, max, min, n: integer; a, b: array[1..100]of integer; begin read(n); max: =0; min: =32; for i: =1 to n do begin read(a[i], b[i]); if a[i]> max then max: =a[i]; if b[i] end; if min> max then writeln('yes') else writeln('no'); end.

Var
a,b:array[1..100]of integer; 
i,max,min,n:integer; 

begin 
readln(n);
max:=0; min:=32;
for i:=1 to n do 
begin
readln(a[i],b[i]); 
if a[i]>max then max:=a[i]; 
if b[i]<min then min:=b[i];
end; 
if min>=max then
writeln('YES') 
else writeln('NO'); 
end.

Пример:
3
1 5
3 10
4 14
YES

Заменить минимальный по модулю положительный элемент нулём. Заменить элементы с К1 по K3 на обратный. Из элементоа массива A сформировать массив D того же размера по правилу: первые 10 элеметов I, остальные Di=Ai-i

Для меня проблематично сделать всё это в одной задаче.
По отдельности каждое предложение есть.
Совместить не могу.
1)var a:array [1..10] of integer; i,min,n,z:integer;
begin
repeat
writeln ('Введите размер массива');
readln (n);
until n<=10;
min:=32767;
z:=0;
for i:=1 to n do
begin
writeln ('введите',i,'элемент');
readln (a[i]);
if a[i]>0 then begin
if min>a[i] then begin min:=a[i]; z:=i;
end;
end;
end;
a[z]:=0;
for i:=1 to n do
begin
writeln ('элемент массива n ',i,' = ',a[i]);
end;
readln;
end.

2)var a:array [1..10] of integer; i,k,n:integer;
begin
repeat
writeln ('Введите размер массива n');
readln (n);
until n<=10;
k:=3;
for i:=1 to n do
begin
writeln ('введите',i,'');
readln (a[i]);
end;
for i:=1 to k do
begin
a[i]:=a[i]*-1;
end;
for i:=1 to n do
begin
writeln ('элемент массива n ',i,' = ',a[i]);
end;
readln;
end.

3) var a:array [1..20] of integer;
d:array [1..20] of integer;
i,n:integer;
begin
writeln ('Введите размер массива n');
readln (n);
for i:=1 to n do
begin
writeln ('введите',i,'');
readln (a[i]);
end;
writeln('элементы нового массива');
for i:=1 to n do
begin
if i<=10 then d[i]:=i else d[i]:=a[i]-i;
writeln (d[i],' ');
end;
readln;
end.

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    x = xN: i = 1
    Do While x <= xK
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        x = x + h: i = i + 1
    Loop
End Sub

Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.

Теперь о Вашей ошибке

Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h

Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.