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

Question

69

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

last1 · Accepted Answer

48

last1

06 апреля 2023

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. Надеюсь на благодарность и лучший ответ.

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: