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

Даны два целочисленных массива. Найти сумму элементов первого массива, стоящих на четных местах , и заменить ею все элементы второго массива , стоящие на
нечетных местах( в паскаль)

  1. Ответ
    Ответ дан pashokstrukov
    program p1;
    const  n = 10;
    var  a: array[1..n] of integer;  b: array[1..n] of integer;  i, sum, j: integer;
    begin 
    for i := 1 to n do begin a[i] := random(10);write(a[i], ' ') end;writeln; 
    for i := 1 to n do begin b[i] := random(10);write(b[i], ' ') end;writeln; 
    sum := 0; 
    for i := 1 to n do if i mod 2 = 0 then sum := sum + a[i]; 
    for i := 1 to n do if i mod 2 <> 0 then b[i] := sum; 
    for i := 1 to n do write(b[i], ' ')  
    end.
    1. Ответ
      Ответ дан pashokstrukov
      тогда вот эту строчку a[i] := random(10) замени на read (a[i]). и для массива b так же сделай
    2. Ответ
      Ответ дан krasnodar33
      Спасибо большое)
    3. Ответ
      Ответ дан krasnodar33
      А еще мы пишем только var с буквой а, а var b не разу не было
    4. Ответ
      Ответ дан pashokstrukov
      var это раздел описания переменных в паскале. Массив можно назвать как угодно. Если b не нравится, можешь заменить на a1 :) но только не забудь и в самой программе поменять b на a1))