GAECHKA
Твоя помощница в решении задач

Заполнить случайными числами [10;20] массив А [1;15].

помогите решить
Заполнить случайными числами [10;20] массив А [1;15], сформировать массив В, каждый элемент которого равен удвоенному элементу массива А с таким же номером
0
вопрос задан

Источник


1 ответ
program Zadanie26;
var
  a,b:array[1..15] of integer; // Переменные для хранения массивов.
  i: integer;  // Промежуточная переменная для организации циклов.
begin
writeln('Исходный массив А:');
  for i:=1 to 15 do   
    begin
    a[i]:= 10 + random(11);
    write(a[i],' ');
    end;
writeln;
writeln('Массив В с результатом вычислений:');
  for i:=1 to 15 do
   begin
   b[i]:=a[i]*2;
   write(b[i],' ');
   end;
readln;
end.