Question

10 элементтен тұратын Х массивінің теріс элементтерін тұрақты а санымен алмастырып, нәтижелерді жаңа У массиві түрінде алатын программа құру. Шығарып беріндерші өтінем

Answer 1

const
    n = 10;
 
var
    a: array[1..n] of integer;
    s: array[1..n] of integer;
    i,k,l: integer;
    flag: boolean;
 
begin
    randomize;
 
    for i := 1 to n do begin
        a[i] := Random(-10,23);
        write (' ',a[i]:3,' ')
    end;
    writeln;
//
    for i := 1 to n do
        s[i]:=0;
    for i := 1 to n do begin  
            if a[i] >= 0 then     
            s[i] := a[i];
                    end;
    for i := 1 to n do
        write (' ',s[i]:3, ' ');
readln
end.

//Тұрақты сан = 0