Question

Срочно! Заполнить одномерный массив размерности N случайными числами. Заменить все элементы массива стоящие до максимального элемента нулями. Вывести на экран исходный и полученный массивы. Код нужен в Pascal

Answer 1

PascalABC.NET

Ответ:

• begin
• var a := ArrRandom(ReadInteger('N:'),-99,99);
• a.Println;
• for var i := 0 to a.IndexMax-1 do a[i] := 0;
• a.Print
• end.

Пример работы: