Задача 1 var a:array [1..100] of integer; i,n:integer; begin writeln('Введите n <=100'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; writeln('Элементы равные сумме двух соседей:'); for i:=2 to (n-1) do if a[i]=(a[i-1]+a[i+1]) then write(a[i],' '); writeln; end.
задача 5 var a:array [1..10000] of integer; i,n, mx1, mx2:integer; begin writeln('Введите n <=10000'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; mx1:=1; for i:=2 to n do if a[i]>a[mx1] then mx1:=i; if mx1=1 then mx2:=2 else mx2:=1; for i:=1 to n do if (a[i]>a[mx2])and(i<>mx1) then mx2:=i; writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]); end.
Ошибка 0x0175dcbb, как правило, возникает в игре Sims 3, причем, как в лицензионной, так и в пиратской, скачанной версии. Причина, из-за которой чаще всего появляется эта ошибка, может быть заключена в подключённых, дополнительных модах, но это не единственная причина, которая вызывает появление ошибки 0x0175dcbb.
Можно попытаться следующим образом устранить ошибку 0x0175dcbb: стоит переименовать или удалить папку с названием packages, в которой размещены на хранение моды. Она находится в директории игры. Теперь попытайтесь вновь загрузить игру, возможно, проблема, имевшая место будет устранена. В том случае, если переименование или удаление папки packages не устранило проблему, т.е. при запуске игры появляется ошибка 0x0175dcbb, тогда попытайтесь вновь переустановить свою игру, но в этот раз, без модов. Стоит отметить, что исправить ошибку 0x0175dcbb позволяет обновление драйверов материнской платы, видео и звуковой карты. На ресурсах производителей можно скачать последние версии необходимых вам драйверов. Выполнив все то, что описано выше попробуйте вновь запустить игру. Если, не смотря на все манипуляции, не получен положительный результат, то можно попытаться произвести обновления Direct X и Net Framework. Если и это не устранило ошибку, то, вероятно, проблемы в самом диске.
var
a:array [1..100] of integer;
i,n:integer;
begin
writeln('Введите n <=100');
readln(n);
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
writeln('Массив');
for i:=1 to n do
write(a[i], ' ');
writeln;
writeln('Элементы равные сумме двух соседей:');
for i:=2 to (n-1) do
if a[i]=(a[i-1]+a[i+1]) then write(a[i],' ');
writeln;
end.
задача 5
var
a:array [1..10000] of integer;
i,n, mx1, mx2:integer;
begin
writeln('Введите n <=10000');
readln(n);
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
writeln('Массив');
for i:=1 to n do
write(a[i], ' ');
writeln;
mx1:=1;
for i:=2 to n do
if a[i]>a[mx1] then mx1:=i;
if mx1=1 then mx2:=2 else mx2:=1;
for i:=1 to n do
if (a[i]>a[mx2])and(i<>mx1) then mx2:=i;
writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]);
end.