1дан одномерный массив из 15 элементов пересавить их в обртном порядке2для линейной вещетвенной таблицы B[1:20] найту сумму всех положитеьных чисел3да

1)дан одномерный массив из 15 элементов пересавить их в обртном порядке

2)для линейной вещетвенной таблицы B[1:20] найту сумму всех положитеьных чисел

3)дана вещественная таблица C[1:20]. Заменить все элементы этой таблицы, имеющие четные порядковые номера на число 8 

4)даны два массива одного размера. Получить третий массив, каждый элемент которго равен минимальному из элементов с одинаковыми номерами в заданных массивах

  • 1)

    Program Pr1;
    uses crt;
    const n=15;
    var mas:array[1..n] of integer;
    j,i,h,k:integer;
    Begin
    clrscr;
    randomize;
    for i:=1 to n do mas[i]:=random(10);
    k:=0;
    for i:=1 to n do write(mas[i]);
    for i:=1 to n div 2 do begin
    h:=mas[n-k];
    mas[n-k]:=mas[i];
    mas[i]:=h;
    k:=k+1;
    end;
    writeln;
    for i:=1 to n do write(mas[i]);
    end.

    2)

    Program Pr1;
    uses crt;
    const n=20;
    var mas:array[1..n] of real;
    i,k:integer;
    Begin
    clrscr;
    for i:=1 to n do begin
    writeln('vvedite ',i,'-oe chislo');
    readln(mas[i]);
    end;
    k:=0;
    for i:=1 to n do if mas[i]>0 then k:=k+1;
    writeln(k);
    end.

     

    3)

    Program Pr1;
    uses crt;
    const n=20;
    var mas:array[1..n] of integer;
    i,k:integer;
    Begin
    clrscr;
    randomize;
    for i:=1 to n do mas[i]:=random(10);
    for i:=1 to n do if i mod 2=0 then mas[i]:=8;
    for i:=1 to n do write(mas[i]);
    end.

     4)

    Program Pr1;
    uses crt;
    const n=20;
    var mas:array[1..n] of integer;
    mas2:array[1..n] of integer;
    mas3:array[1..n] of integer;
    i:integer;
    Begin
    clrscr;
    randomize;
    for i:=1 to n do begin
    mas[i]:=random(10);
    mas2[i]:=random(10);
    end;
    for i:=1 to n do write(mas[i]);
    writeln;
    for i:=1 to n do write(mas2[i]);
    for i:=1 to n do if mas[i]<mas2[i] then mas3[i]:=mas[i]
    else mas3[i]:=mas2[i];
    writeln;
    for i:=1 to n do write(mas3[i]);
    end.


See also: