На рисунке показаны результаты выполнения команд сместиться в точку (x,y) при различных положениях до этой команды. найдите значения x и
240
362
Ответы на вопрос:
program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Популярно: Информатика
-
littlefoxy18.08.2020 06:14
-
Spasatel22224.10.2022 04:38
-
vlasov20013306.11.2021 15:14
-
MrGromFull02.01.2023 07:33
-
alferovasnega01.09.2021 09:58
-
Anneli117.05.2021 02:12
-
maximborisoc26.05.2022 15:25
-
sashik200507.05.2023 04:29
-
allahgulievaru19.09.2022 02:12
-
anastasia73839328.06.2023 04:40