Информатика, как найти среднее арифметическое чисел А[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)
Помогите с ответом
Помогите решить - теплоход за два дня был в пути 12 часов. В первый день он прошел 256 км., а во второй - 128 км. Сколько часов теплоход провел в пути в каждый из этих дней, если он двигался с одинаковой скоростью?
Нет ответа
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа