Question

Помогите пожалуйста!!!!!!
Практическая работа №4 «Разработка программ с использованием одномерных
массивов.»
Найти максимальный элемент массива из 10 чисел. Массив заполняется в процессе
работы программы случайными числами от 1 до 9. Вывести на экран значения
элементов массива и результат работы программы.
Написать на PascalABC

Answer 1

Должно работать как в PascalABC, так и в PascalABC.NET

Код на языке Pascal:

const

 ArraySize = 10; // размер массива

var

 arr: array[1..ArraySize] of Integer;

 i, maxElement: Integer;

BEGIN

 Randomize;

 // Заполнение массива случайными числами от 1 до 9

 for i := 1 to ArraySize do

   arr[i] := Random(9) + 1;

 // Вывод значений элементов массива

 WriteLn('Значения элементов массива:');

 for i := 1 to ArraySize do

   Write(arr[i], ' ');

 // Поиск максимального элемента

 maxElement := arr[1];

 for i := 2 to ArraySize do

 begin

   if arr[i] > maxElement then

     maxElement := arr[i];

 end;

 WriteLn;

 WriteLn('Максимальный элемент массива:', maxElement);

 ReadLn;

END.

Код на языке Python:

import random

array = []

for _ in range(10):

   number = random.randint(1, 9)

   array.append(number)

print("Элементы массива: ", end="")

for number in array:

   print(number, end=" ")

max_number = max(array)

print("\nМаксимальный элемент:", max_number)