Question

1. напишите программу для создания трех массивов, каждый из 8 элементов : A, B и C.
2. Заполните массив A с клавиатуры.
3. Заполните массив B квадратами номеров соответствующих элементов.
4. Заполните массив C случайными числами.
5. Выведите эти три массива на экран, расположив их элементы в строку.
6. Подсчитайте сумму элементов каждого из массивов

Answer 1

Відповідь:

Пояснення:

Answer 2

Pascal

const

 n=7;

var

 a, b, c:array[0..n] of integer;

 i, s1, s2, s3 : integer;

begin

 randomize;

 s1:=0; s2:=0; s3:=0;

 for i:=0 to n do begin

   readln(a[i]); s1:=s1+a[i];

   b[i]:=sqr(i); s2:=s2+b[i];

   c[i]:=random(10); s3:=s3+c[i];

 end;  

 

 for i:=0 to n do write(a[i], ' ');

 writeln('  Сумма=', s1 );

 for i:=0 to n do write(b[i], ' ');

 writeln('  Сумма=', s2 );

 for i:=0 to n do write(c[i], ' ');

 writeln('  Сумма=', s3 );

end.