Напишите программу, которая находит среднее из трёх введённых чисел. предполагается, что все три числа различные.
280
436
Ответы на вопрос:
Var a,b,c: integer; begin readln(a); readln(b); readln(c); writeln((a+b+c)/3); end.
Program sum; var n, i, s: integer; a: array[1..1000] of integer; begin write('vvedite n'); readln(n); write('vvedite n chisel'); for i : = 1 to n do read(a[i]); s : = 0; for i : = 1 to n do s : = s + a[i]; write('summa ravna', s) end. проверь так?
Популярно: Информатика
-
AngelChan200430.06.2021 18:43
-
лис23908.09.2022 14:44
-
Регина5679719.07.2021 12:20
-
Sasha2333300009.02.2023 12:19
-
Бантюсик19.11.2022 01:52
-
Неизвестный1778115.05.2020 12:53
-
jddosnfkdmsns03.06.2022 06:39
-
Police22218.05.2023 02:52
-
NastiaKostiuk01.12.2021 15:40
-
ananasik7911.01.2020 01:53