информатика , как отыскать среднее арифметическое чисел А[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
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов