Зачетка.....пыщь об стену!

[Tifa]

Program p;
var
mas:array[1..5] of integer;
I:byte;
sum,proizv:integer;
begin
for i:=1 to 5 do readln(mas[i]);
for i:=1 to 5 do writeln(mas[i]:6);
sum:=0;
Proizv;=1;
for i:=1 to 5 do
if mas[i]<0 then proizv:=proizv*mas[i]
else
if mas[i]>0 then sum:=sum+mas[i];
writeln('summa=',sum);
writeln('proizvedenie=',proizv);
readln

Задача на то что бы найти сумму положительных и произведение отрицательных!но дело в то что эту задачу надо решить 4 спосабами.....это мая зачеткая работа прошу ....не....умоляю сделайте...и вы избавитесь от меня )))XDD
1-й способ for i:=1 to n do
2-й способ for i:=n down to 1 do
3-й способ write
4-й способ repeat until
Такими способами ЭТо надо решить!.....+репу!

[velfor]

За спасибо вряд ли кто решит. Либо учить, либо платить деньги. Иного не дано.

[Tifa]

о даааа....это ты на себя намикаеш что бы я тебе заплатил ....мне задачи по по хуже решали за бесплатно !....не все такие жадные !....тут масив одномерный даже не 2 мерный!

[Пепел Феникса]

однако учится надо вам, а не нам.
не хотите учится(сами говорите что это простое задание) тогда не нужно зачетку сдавать, уходите сразу(и в армию??)
работать вы как потом собираетесь? так же на форумах просить чтоб за вас сделали?

[Tifa]

хм...дело в том, что мне эта информатика-то и не нужна я 1 курс и информатике после этой работы вообще не будет!...вы об этом не задумывались?!....я учусь не на программиста...!!!!вы же не во всех предметах шарите!правильно!......)

видимо ты на филолога учишься. Да? Единица тебе за орфографию, учи русский язык.

[k0tone]

Пора остановить ваш спор... Этот форум создан специально для помощи в задачках по программированию, а будет ли человек просивший помощи разбираться что к чему, сугубо его личное дело! Лови код:

program p;

  uses
    crt;

  var
    mas:array [1..5] of integer;
    i,sum,proizv:integer;

  begin
    clrscr;

    for i:=1 to 5 do read(mas[i]);
    for i:=1 to 5 do write(mas[i]:5);


    {2-ой способ:}
    sum:=0;
    proizv:=1;
    for i:=5 downto 1 do
    if mas[i]<0 then proizv:=proizv*mas[i]
    else sum:=sum+mas[i];
   

    {3-ий способ:}
    i:=1;
    sum:=0;
    proizv:=1;
    while i<=5 do
      begin
        if mas[i]<0 then proizv:=proizv*mas[i]
        else sum:=sum+mas[i];
        i:=i+1;
      end;
    
  
   {4-ый способ:}
    i:=1;
    sum:=0;
    proizv:=1;
    repeat
      if mas[i]<0 then proizv:=proizv*mas[i]
      else sum:=sum+mas[i];
      i:=i+1;
    until i>5;
    
    writeln('summa=',sum);
    writeln('proizvedenie=',proizv);

    readkey;
  end.

P.S. 1-ым способом решено у тебя в примере...

[Tifa]

ааааа спасибоОООООООООООООООООООООООООООО ОООООООООООО!....вот видеш естьлюди добрые на земле!..