profile
Опубликовано 5 лет назад по предмету Информатика от natali7456

Дан массив С(10). Сформируйте из него массивы А(5) и В(5), предварительно определив их длину. В массив А включите элементы из массива С с четными индексами, а в В— с нечетными. Выведите на экран массивы А(5), В(5) и С( 10).

  1. Ответ
    Ответ дан Alexan2000
    program Massivi;
    var
    i: Byte;
    c: array [1..10] of Integer;
    a, b: array [1..5] of Integer;
    begin
    // Zapolnee massiva c:
    for i:=1 to 10 do
    begin
    //
    Wtire('C['+IntToStr(i)+']=');
    ReadLn(C[i]);
    end;

    // Formirovanie massivov a i b.
    for i:=1 to 10 do
    //
    if i mod 2 = 0 then a[i div 2]:=c[i] else b[i div 2 + 1]:=c[i];

    //
    Write('Massiv a: ');
    //
    for i:=1 to 5 do Write(IntToStr(a[i])+', ');
    //
    WriteLn('');

    //
    Write('Massiv b: ');
    //
    for i:=1 to 5 do Write(IntToStr(b[i])+', ');
    //
    WriteLn('');

    //
    Write('Massiv c: ');
    //
    for i:=1 to 10 do Write(IntToStr(c[i])+', ');
    end.




Самые новые вопросы