должно быть 3 массива одинаковой длины (длина задаётся с клавы)
массивы 1 и 2 должны заполняться рандомными числами
в 3 массив записываются результаты деления ячейки 1 масссива на соответсвующую ячейку второго
должен выводиться массив с, значения ячеек которого равны результату деления ячеек первого на ячейки второго
Program Massiv;
var
i : integer;
A1,A2 : array[1..10] of integer;
A3 : array[1..10] of Real;
begin
For i:=1 to 10 do
begin
A1[ i ] := Random(2000) - 1000;
A2[ i ] := Random(200) - 100;
A3[ i ] := A1[ i ] / A2[ i ];
end;
end.
Не проверял на работоспособность.
Могу сделать. Пишите в почту.
я немного переделал, работает нормально
Program Massiv;
uses crt;
var
i : integer;
A1,A2 : array[1..10] of integer;
A3 : array[1..10] of Real;
begin clrscr;
For i:=1 to 10 do
begin
A1[ i ] := Random(100) - 50;
A2[ i ] := Random(100) - 50;
A3[ i ] := A1[ i ] / A2[ i ];
writeln(a1:4,a2:4,a3:6:2);
end;
readln;
end.
⇢