Информатика, как найти среднее арифметическое чисел А[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]>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)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Информатика, как найти среднее арифметическое чисел А[1] ... A[20] начало программы Program Maximum; VAR A: array [1 ... 20] of integer; i, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write ('Vvedi chislo ') ; Readln (A) ; If A < Min then Min:=A; end; Writeln ('MIN=', Min) ; Readln; end.
Ответы (1)
Выдает ошибку Операция > не может быть применена к типам boolean и integer Program qq; var a, b, c, max, min, med : integer; begin writeln ('введите три числа') ; read (a, b, c) ; if c>b>a then begin max : = c; med : = b; min : = a; End;
Ответы (1)
Program pr; var mas: array[1 ... 10] of integer; i, min, ind: integer; Begin randomize; For i:=1 to 10 do Begin mas[i]:=Random (100) ; write (mas[i], ' ') ; End; writeln () ; min:=mas[1]; For i:=1 to 10 do Begin If (min>mas[i]) then End;
Ответы (1)
Исправить ошибки в паскале program massiv2; type mas=array [1 ... 100] of integer; var a: = Max; i, n, min, max, b : integer; недопустимый символ: = (д/б просто :; неизвесмтное имя типа max) begin writeln ('n=') ; readln (n) ;
Ответы (2)
Помогите с ответом
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
вывести формулу расчёта для решения задач типа: сколько граммов соли нужно добавить к А г а %-го раствора этой соли для получения в %-го раствора?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
При сгорании в хлоре 224 г порошка некоторого металла образовалось 650 г хлорида в котором данный метал трехвалентен. о каком металле идет речь
Нет ответа
Запишите уравнения реакций дегидрирования пропана и бутана и попробуйте дать названия продуктам по аналогии с этиленом.
Нет ответа