составить программу заполнения двух массивов случайными числами
Пожалуйста помогите
Ответы на вопрос
Ответил fedrfedr
1
Ответ:
program ArraySumma;
procedure ArrFill (a: array of Integer);
var
i: Integer;
begin
for i := Low (a) to High (a) do begin
a [i] := Random (100);
Write (a [i], ' ');
end;
end;
var
a1, a2: array of Integer;
n1, n2: Integer;
begin
Write ('Введите размерность двух массивов: ');
ReadLn (n1, n2);
SetLength (a1, n1);
SetLength (a2, n2);
Randomize;
WriteLn;
WriteLn ('Первый массив:');
ArrFill (a1);
WriteLn;
WriteLn ('Второй массив:');
ArrFill (a2);
ReadLn;
end.
Новые вопросы
Математика,
1 год назад
Українська література,
1 год назад
История,
2 года назад
Математика,
2 года назад
Английский язык,
7 лет назад