Решение ,от решения этой ,зависит моя оценка. буду создать целочисленный массив из 15 чисел. заполнить с генератора случайных чисел с элементами от -15 до 30. и вывести его на экран. определить самый большой элемент массива и его индекс. a (i): =random (x) -15 от -1 до х от -15 до 30.
152
169
Ответы на вопрос:
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. надеюсь на и лучший ответ.
Популярно: Информатика
-
smasa345009.01.2022 15:51
-
gfitgfbjgffj15.02.2023 03:49
-
shapuk19.03.2022 18:41
-
RenoGant07.03.2023 02:16
-
vakhram10.06.2022 14:47
-
vladgorbatov101.04.2022 18:02
-
koskol84p08pdw02.10.2022 11:55
-
Dgj819.08.2020 18:48
-
angalena06.01.2023 11:55
-
MalenkayaStervochka27.06.2022 09:37