бля пацаны выручайте
написал программу вроде, а она не хочет работать
я хз уже что с ней делать

дан одномерный массив.удалить из него все отрицательные элементы со сдвигом элементов.в конце, если остаются пустые элементы, придать им значение 0

Показать скрытый текст

const k=10;
var a:array[1..k] of integer;
    i,n,s,o:integer;
begin
     s:=0;
     for i:=1 to k do
     begin
          readln(a[i]);
     end;
     for i:=1 to k do
     begin
          if a[i]<0 then
          begin
               for o:=1 to k-1 do
               a[o]:=a[o+1];
               s:=s+1;
          end;
     end;
     for i:=(k-s) to k do
     begin
          a[i]:=0;
     end;
     for i:=1 to k do
     begin
          writeln(a[i]);
     end;
     readln;
end.

Будь внимательней.

const k=5;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0; 
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k-1 do a[o]:=a[o+1];
s:=s+1;
end
else o:=o+1;
end;
for i:=(k + 1 - s) to k do
begin
a[i]:=0;
end; 
writeln('Вывод:');
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.

P.S. Много лишнего кода. Почитай что-нибудь об эффективном кодинге на паскале.
Например, лишние begin и end;
Да и оформление кода оставляет желать лучшего.

-Цитата от Hammer

Будь внимательней.

const k=5;
var a:array[1..k] of integer;
i,n,s,o:integer;
begin
s:=0; 
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k-1 do a[o]:=a[o+1];
s:=s+1;
end
else o:=o+1;
end;
for i:=(k + 1 - s) to k do
begin
a[i]:=0;
end; 
writeln('Вывод:');
for i:=1 to k do
begin
writeln(a[i]);
end;
readln;
end.

P.S. Много лишнего кода. Почитай что-нибудь об эффективном кодинге на паскале.
Например, лишние begin и end;
Да и оформление кода оставляет желать лучшего.

нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту

-Цитата от Трэй

нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту

const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.

-Цитата от Hammer

-Цитата от Трэй

нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту

const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.

у меня без
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
заработало

спасибо огромное

-Цитата от Тедди

-Цитата от зулусик просто

-Цитата от Тедди

Да, это приведение к ступенчатому виду.Форум уничтожает отступы. Программа должна считать ранг матрицы.
Вот весь проект в архиве
http://file.qip.ru/file/tZB2Uiuj/Хрень.html ( 207,25 Кб )

У меня массив динамический

ну как бы i и j местами поменять в 1ой выделенной строке надо в любом случае
а если у тебя массив динамический, надо наверно память под него выделить, не?
короче так
setlength(arr,strok,stolb);

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего.

-Цитата от зулусик просто

-Цитата от Тедди

-Цитата от зулусик просто

ну как бы i и j местами поменять в 1ой выделенной строке надо в любом случае
а если у тебя массив динамический, надо наверно память под него выделить, не?
короче так
setlength(arr,strok,stolb);

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего.

Да вроде всё проверил.

-Цитата от Тедди

-Цитата от зулусик просто

-Цитата от Тедди

Окей. Про память был не в курсе. завтра попробую. спасибо

Добавлено через 17 часов 11 секунд

щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего.

Да вроде всё проверил.

Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива.

-Цитата от Hammer

-Цитата от Тедди

-Цитата от зулусик просто

щас не могу посмотреть, делфа дико глючит.
это алгоритм уже, я думаю.
ну посмотри, там что-то скорее всего с индексами. из-за этого вылетает скорее всего.

Да вроде всё проверил.

Ну там ошибка в делении как я понял. «/»
Может на ноль делишь и вообще, покажи объявление массива.

нет, я не делю на ноль, но эту ситуацию я действительно не предусматривал. Я же скинул проект

Помогите

Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы

-Цитата от Delpix MC

Помогите

Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы

Задача по жизни.

Помогите.

Найти все трехзначные купюры.
Нужны деньги.

P.S. Здесь не каталог готовых программ. Свои попытки есть?

-Цитата от Hammer

-Цитата от Delpix MC

Помогите

Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Нужен код программы

Задача по жизни.

Помогите.

Найти все трехзначные купюры.
Нужны деньги.

P.S. Здесь не каталог готовых программ. Свои попытки есть?

чотка

#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i\10)+i\10))
k++;
cout;
}
Вот чет похожее но не работает

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

-Цитата от Delpix MC

#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i\10)+i\10))
k++;
cout;
}
Вот чет похожее но не работает

так навскидку, мож неправильно...

int k,j=0;
for (int i=100;i<1000;i++)
{
k=i%11;
if (k==(i\100+(i\10)+i\10)) 
j++;
cout<<j;
}

-Цитата от ExIzze

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

грубо говоря
while - цикл работает, пока не выполнится некое условие
for - цикл идёт определённое количество раз, каждый раз увеличивая счётчик на 1

-Цитата от Женя Йети

-Цитата от ExIzze

кто в паскале шарит, можете объяснить чем отличаются операторы for, while?

грубо говоря
while - цикл работает, пока не выполнится некое условие
for - цикл идёт определённое количество раз, каждый раз увеличивая счётчик на 1

спасибо.

Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

-Цитата от Sa[V]ior

Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

Могу на ucoz сделать

-Цитата от Delpix MC

-Цитата от Sa[V]ior

Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

Могу на ucoz сделать

мне сайт не нужен онлайн, мне просто сама оболочка нужна.
То есть делаешь сайт, пересылаешь его мне и всё.

-Цитата от Delpix MC

-Цитата от Sa[V]ior

Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

Могу на ucoz сделать

Задание:
Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Код:

#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
{
k++;
cout<<k<<" ";
}
cout<<"\n"<<k;
}


if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
В чем причина

-Цитата от иксуй!

-Цитата от Delpix MC

-Цитата от Sa[V]ior

Блин, какой-то мудлан снёс мою тему.
Мне нужно сайт на html забацать. Я в этой хуйне не шарю, поэтому предлагаю деньги тому кто просто оформит мне дизайн страници. Я не ожидаю ничего ахуенного, просто простой сайт, с навигацией в javascript или css и сочитающимся дизайном.
Думаю для знающих людей дело не больше чем на час. Работу оплачу, если кому не в падлу, стучитесь в личку.

Могу на ucoz сделать

-Цитата от Delpix MC

Задание:
Найти все трехзначные натуральные числа,остаток от деления которых на 11 равен сумме цифр этого числа.
Код:

#include <iostream>
#include <math.h>
using namespace std;
void main ()
{
int k;
for (int i=100;<=999;i++)
if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
{
k++;
cout<<k<<" ";
}
cout<<"\n"<<k;
}



if ((i)==(i\100+(i%10)+(i\10%10))); - в этой строчке Visual бесперебойно выдает - синтаксическая ошибка: )
В чем причина

Ты в курсе что знак деления в другую сторону наклонён?
и что за if адский такой вообще... зачем точка с запятой после него сразу?