• Задаются два массива A(14) и B(14). Получить третий массив, перемножив элементы первого на элементы второго, взятые в обратном порядке. Все массивы вывести на экран. Напишите пожалуйста программу в Free Pascal.

Ответы 1

  • const n=14;var  a,b,c: array[1..n] of integer;  i: byte;begin  randomize;  for i:=1 to n do begin;    a[i]:=random(-10,10);     b[i]:=random(-10,10);  end;     println (a);  writeln;  println (b);  writeln;  for i:=1 to n do begin;    c[i]:=a[i]*b[n+1-i];   end;    println (c);end.---------------------------------Пример:9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30 
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years