Даны два целочисленных массива. Найти сумму элементов первого массива, стоящих ** четных...

Question

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

Answer 1

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.

Comments

Мы проходиим без рандома 

---

тогда вот эту строчку a[i] := random(10) замени на read (a[i]). и для массива b так же сделай

---

Спасибо большое)

---

А еще мы пишем только var с буквой а, а var b не разу не было

---

var это раздел описания переменных в паскале. Массив можно назвать как угодно. Если b не нравится, можешь заменить на a1 :) но только не забудь и в самой программе поменять b на a1))

---

Все поняла