var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-3,3);
write(ar[i]:4);
end;
for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
for j:=i+1 to n do
if ar[i]>ar[j] then
begin
k:=ar[i];
ar[i]:=ar[j];
ar[j]:=k;
end;
writeln;
writeln('Sorted array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
for i:=1 to n do
if ar[i]=0 then
begin
write('Index of 0 is ',i);
break;
end;
end.
<span>Пример работы программы:
First array:
-2 -3 0 -3 3
Sorted array:
-3 -3 -2 0 3
Index of 0 is 4</span>
Значение функции:
А В -> значение
0 0 -> 0
0 1 -> 1
1 0 -> 1
1 1 -> 1
изображение не подскажу
В седьмом задании просто не фигурной скобки в конце (ещё просто подключена библиотека iomanip, которая не используется, но за ошибку это не считается)
Ну и текст киррилицей не будет выводится, т.к. не локализации,так-же пропущено объявление функции и типа данных.
В восьмом тоже не фигурной скобки в конце, впервом сиауте пропущена кавычка, во втором сиауте они вообще не такие. Плюс локализация консоли находится не в функции мейн ну и в ней тоже ошибка, вместо нуля должно быть "LC_CTYPE", return 0; не указано.
