Question

Помогите с информатикой, пожалуйста (номер 22)

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Массив X'); var x:=ArrRandom(n,-99,99); x.Println;
  Writeln('Массив Y'); var y:=ArrRandom(n,-99,99); y.Println;
  var t:=new integer[n];
  var k:=0;
  for var i:=0 to n-1 do
    if x[i]>=y[i] then begin t[i]:=x[i]; k+=1 end
    else t[i]:=y[i];
  Writeln('Массив T'); t.Println;
  Writeln('Элементы массива Х вошли в Т ',k,' раз(а)')
end.

Пример
n= 13
Массив X
13 67 -76 -28 -61 -3 -54 35 -37 -36 -8 -17 -4
Массив Y
16 80 11 -66 19 -74 94 -93 -66 -41 44 11 46
Массив T
16 80 11 -28 19 -3 94 35 -37 -36 44 11 46
Элементы массива Х вошли в Т 5 раз(а)

Answer 2

Вполне возможно, что он и код мой не поймет до конца...

Answer 3

помогите, пока, с другой задачей. она появится в списке через минуту. дам 50 баллов. блок-схемой сделать

Answer 4

Я не рисую блок-схем, я программист, а не чертежник.

Answer 5

А, понял. просто Вы написали, что я не написал как делать и поэтому Вы выбрали программой, а не блок-схемой

Answer 6

но всё равно, спасибо