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

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

  1. Ответ
    Ответ дан rrrinat
    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.