Дан массив X(N)(N<=40)...

Тема в разделе "Информатика", создана пользователем _STALIN_, 12 фев 2010.

  1. _STALIN_

    _STALIN_ New Member

    Дан массив X(N)(N<=40) записать в массив М подряд пять первых положительных элементов массива Х, массив М расспечатать, пожалуйста сделайте блоксъхему
     
    _STALIN_, 12 фев 2010
    #1
  2. dogowner

    dogowner New Member

    Uses crt;
    var x,m: array [1..40] of integer;
        n,k,c:integer;
    begin
         readln(n);
         c:=1;
         for k:=1 to n do
         begin
              write('x[',k,']:');
              readln(x[k]);
         end;
         k:=1;
         repeat
             if x[k]>0 then
             begin
                   m[c]:=x[k];
                   inc(c);
                   inc(k);
             end
             else inc(k);
             until c=6;
         writeln;
         for c:=1 to 5 do
             writeln('m[',c,']:',m[c]);
    end.
     
    dogowner, 12 фев 2010
    #2

Поделиться этой страницей

Наша группа