информатика , как отыскать среднее арифметическое чисел А[1]..A[20] начало программы Program
Информатика , как отыскать среднее арифметическое чисел А[1]..A[20] начало программки Program Maximum; VAR A: array [1..20] of integer; i,max:integer; i,min:integer; i,среднее:integer; i: integer; Begin A[1]:=56; A[2]:=78; A[3]:=48; A[4]:=90; A[5]:=45; A[6]:=54; A[7]:=63; A[8]:=52; A[9]:=43; A[10]:=54; A[11]:=64; A[12]:=59; A[13]:=54; A[14]:=53; A[15]:=52; A[16]:=58; A[17]:=71; A[18]:=58; A[19]:=59; A[20]:=70; for i:=1 to 20 do read (A[i]); max:=A[1]; for i:= 2 to 20 do if A[i]gt;max then max:= A[i]; Write(max); for i:=1 to 20 do read (A[i]); max:=A[1]; for i:=2 to 20 do if A[i]
Задать свой вопрос1 ответ
Olga Surly
Program Maximum; var A: array [1..20] of integer; i,sum: integer; sr:real; Begin A[1]:=56; A[2]:=78; A[3]:=48; A[4]:=90; A[5]:=45; A[6]:=54; A[7]:=63; A[8]:=52; A[9]:=43; A[10]:=54; A[11]:=64; A[12]:=59; A[13]:=54; A[14]:=53; A[15]:=52; A[16]:=58; A[17]:=71; A[18]:=58; A[19]:=59; A[20]:=70; for i:=1 to 20 do begin sum+=A[i]; end; sr:=sum/20; write(sr); end.
Ангелина
высвечивается ощибка: Неизвестное имя 'sum'
Боря Тихонько
почему при вводе данных у меня можно вводить безграничное количество цифр ???
Олеся Зиадитдинова
Ответьте пожалуйста
Jelina Borok
данная программка не запрашивает никаких данных...
Ольга
удали ВЕСЬ свой код
Маргарита
И 'вставь' тот, что я сбросил
Дидук
Борис
Тогда выходит , но мне надобно чтоб компьютер еще обретал наибольшее и минимальное чило
Евгения
Program Maximum; var A: array [1..20] of integer; i,sum,max,min: integer; sr:real;
Никита Козатин
Begin A[1]:=56; A[2]:=78; A[3]:=48; A[4]:=90; A[5]:=45; A[6]:=54; A[7]:=63; A[8]:=52; A[9]:=43; A[10]:=54; A[11]:=64; A[12]:=59; A[13]:=54; A[14]:=53; A[15]:=52; A[16]:=58; A[17]:=71; A[18]:=58; A[19]:=59; A[20]:=70; max:=A[1];min:=A[1];for i:=1 to 20 do begin sum+=A[i]; if (A[i]max) then max:= A[i]; end; sr:=sum/20; writeln('Среднее число - ',sr); writeln('Мин. число - ',min); writeln('Макс. число - ',max); end.
Диман Огильви
СПАСИБО Огромное)))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов