ПОМОГИТЕ ПОЖАЛУЙСТА! НУЖНО РЕШЕНИЕ ЗАДАЧИ, ОТ РЕШЕНИЯ ЭТОЙ ЗАДАЧИ…

ПОМОГИТЕ ПОЖАЛУЙСТА! НУЖНО РЕШЕНИЕ ЗАДАЧИ, ОТ РЕШЕНИЯ ЭТОЙ ЗАДАЧИ, ЗАВИСИТ МОЯ ОЦЕНКА. БУДУ ОЧЕНЬБЛАГОДАРНАСоздать целочисленный массив из 15 чисел. Заполнить с помощью генератора случайных чисел с элементами от -15 до 30. И вывести его на экран. Определить самый большой элемент массива и его индекс. A (i): =random (x) -15 от -1 до хот -15 до 30.

в избранное

last1

10 августа 2022

uses crt; var a, b, c, i, n, j: integer; s: array[1… 10000] of integer; begin clrscr; writeln ('Введите размер массива'); read (n); for i: =1 to n do begin s[i]: =random (46) -15; writeln ('s[', i,']=', s[i]); end; a: =s[1]; for i: =1 to n do if s[i]>a then begin a: =s[i]; b: =i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.P.S. Надеюсь на благодарность и лучший ответ.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?