Разработка алгоритмов и программ с использованием динамических массивов

@Tuku · Регистрация: 23.04.2016

Author24 — интернет-сервис помощи студентам

Модифицировать программу так, чтобы
1) количество генерируемых массивов не равнялось 10, а задавалось пользователем;
2) каждый сгенерированный массив выводился на экран.
Написать программу в PascalABCNET.

@JuriiMW · 20.11.2017, 08:42

Pascal

begin
  var n : integer;
  repeat
    n := ReadInteger('Количество массивов =');
  until (n > 0) and (n <> 10);
  for var i := 1 to n do
    begin Write('Сгенерирован ' + i + ' массив: '); var a := ArrRandomInteger(Random(5,15)).Println;end;
end.

@volvo · 20.11.2017, 11:05

Pascal

begin
  var a := Range(1, ReadInteger('Количество массивов =')).
      Select(i -> begin 
                    result := ArrRandomInteger(Random(5,15));
                    Println('Сгенерирован ' + i + ' массив: ', result)
                  end).ToArray;
end.

@Tuku 0 / 0 / 0 Регистрация: 23.04.2016 Сообщений: 23
		1
	Разработка алгоритмов и программ с использованием динамических массивов 20.11.2017, 08:29. Показов 1700. Ответов 2 Метки нет (Все метки) Модифицировать программу так, чтобы 1) количество генерируемых массивов не равнялось 10, а задавалось пользователем; 2) каждый сгенерированный массив выводился на экран. Написать программу в PascalABCNET. 0

	20.11.2017, 11:05

Разработка алгоритмов и программ с использованием динамических массивов

Решение