Найти произведение элементов одномерного массива состоящего из n элементов.Элементы вводятся с клавиатуры.Задача на с
237
269
Ответы на вопрос:
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.{немного нерационально но работает=)}
Популярно: Информатика
-
nekiti44430.04.2022 22:14
-
какая8разница30.10.2020 23:46
-
saleev1622.01.2020 07:39
-
gmejenny16.01.2022 11:08
-
laktionovapolyp0cghd18.04.2022 02:57
-
Wkdj1373724.04.2021 00:47
-
ПринцессалучшаЯ09.08.2020 15:35
-
незнайка333333333323.12.2020 21:51
-
alikakusai3529.10.2020 19:32
-
Barcelona200407.11.2022 13:04