Турбо Паскаль.

[Лимон]

Очень прошу вас помогите написать программу в Паскале.
Условия задачи:
Дан массив A(m), m(меньше или равно)0. Заменить нулём каждый отрицательный элемент массива и вычислить сумму S и количество K оставшихся положительных элементов. Вывести на печать исходный и преобразованный массивы, а также величины S и K.
Пожалуйста помогите, буду очень благодарен.
Заранее спасибо!!!

[fbus]

что именно не получается?

[Лимон]

Мне нужна сама программа у меня в универе просто по инфе на все лабораторные работы попался очень тяжёлый вариант, я сам рещил из 6 работ 2, и теперь мне нужны ещё 4, но 3 работы я ещё сам попробую сделать, а вот с этой вообще ничего не получается(((
В общем мне нужен полный текст программы, если не сложно помогите пожалуйста))

[kiborrgg]

Сообщение от Лимон

Очень прошу вас помогите написать программу в Паскале.
Условия задачи:
Дан массив A(m), m(меньше или равно)0. Заменить нулём каждый отрицательный элемент массива и вычислить сумму S и количество K оставшихся положительных элементов. Вывести на печать исходный и преобразованный массивы, а также величины S и K.
Пожалуйста помогите, буду очень благодарен.
Заранее спасибо!!!

В любом случае m>i - (где i счётчик)

[Лимон]

счётчик 15
m(меньше или равно)15

[GetMax]

Вот решение.

Var
  Mas:array[1..15] of Integer;
  m,Kol:Byte;
  S:Integer;
Begin
   Randomize;
    Writeln('Исходный массив ');
    For m:=1 to 15 do
    Begin
      Mas[m]:=-20+Random(40);
      Write(Mas[m]:3)
    End;
    Kol:=0;
    S:=0;
    For m:=1 to 15 do
    Begin
        If  Mas[m] < 0 then Mas[m]:=0
        Else
        If Mas[m] > 0 then
        Begin
            Inc(Kol);
             S:=S+Mas[m]
        End;
     End;
     Writeln('Новый массив  ');
     For m:=1 to 15 do Write(Mas[m]:3);
      Writeln;
     Writeln('Сумма = ',S);
     Writeln('Количество положительных = ',Kol);
     Readln
End.

[junger@]

Пожалуйста помогите решить три задачи!!!
1) дано натуральное число;
-сколько раз данная цифра А
встречается в данном числе ( A вводится с клавиатуры)
-верно ли,что в данном числе сумма цифр больше B,а само число делится на В ( В вводится с клавиатуры)
2)найдите все четырех значные числа,которые есть две одинаковые цифры.
3)из данного натурального числа удалить все цифры A ( A вводится с клавиатуры)