Question

Сформируйте массив, содержащий 15 элементов, с датчика случайных чисел. получите новый массив, каждый элемент которого равен увеличенному на заданное с клавиатуры число соответствующему элементу исходного массива. выведите на экран исходные и полученные результаты.

Answer 1

Const  
         SIZE = 15;
var 
         a, b:array[1..SIZE] of integer; 
         i, r, num:integer;
begin 
         Randomize; 
         for i:=1 to SIZE do a[i]:= Random(100) + 1; 
         for i := 1 to SIZE do write(a[i], ' ');    
         writeln; 
         for i:=1 to SIZE do   
               begin     
                     read(num);     
                     b[i]:= a[i] + num;   
                end; 
          for i := 1 to SIZE do write(b[i], ' '); 
end.