Question

1. напишите программу для создания трех массивов каждый их 8 элементов a b и c
2.заполните массив А с клавиатуры
3. заполните массив В квадратами номеров соответствующих элементов
4.заполните массив С случайными числами
5.выведите эти три массива на экран расположив их элементы в строку

Answer 1

Ответ:

var

a, b, c: array[1..8] of integer;

i: integer;

begin

for i := 1 to 8 do

read(a[i]);

for i := 1 to 8 do

b[i] := sqr(a[i]);

for i := 1 to 8 do

c[i] := random(10000);

for i := 1 to 8 do

write(a[i], ' ');

writeln();

for i := 1 to 8 do

write(b[i], ' ');

writeln();

for i := 1 to 8 do

write(c[i], ' ');

writeln();

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(8);

 var b := ArrGen(8, i -> i * i, 1);

 var c := ArrRandom(8, -99, 99);

 a.Println;

 b.Println;

 c.Println

end.