Даны 3 одномерных массива a, b, c разной длины. разработать процедуру ввода массивов и нахождения их средних значений. полученные средние значения выдать на экран в программе. pascal
269
490
Ответы на вопрос:
Самое худшее, что можно придумать, это сделать именно процедуру. ниже вариант с процедурой, а потом другой, без процедур. можно // pascalabc.net 3.2, сборка 1509 от 27.07.2017 // внимание! если программа не работает, обновите версию! вариант с процедурой procedure massavg(var r: real); begin r: =readseqinteger('вводите: ',readinteger('n=' end; begin var avg: real; for var i: =1 to 3 do begin massavg(avg); writeln('среднее значение: ',avg) end end. вариант без процедур и функций begin for var i: =1 to 3 do begin writeln('среднее значение: ', readseqinteger('вводите: ',readinteger('n=') end end. результат n= 7 вводите: -5 4 11 8 0 5 4 среднее значение: 3.85714285714286 n= 5 вводите: 100 32 52 43 19 среднее значение: 49.2 n= 4 вводите: 6 6 8 7 среднее значение: 6.75
Популярно: Информатика
-
лена638505.07.2022 21:47
-
хани200503.08.2021 08:40
-
Papyas302.03.2020 02:26
-
joker90226.03.2021 21:49
-
qq30289423.04.2023 20:53
-
sosochek4702.01.2023 00:12
-
Элчанкин15.01.2023 13:03
-
diana201012345627.03.2021 04:11
-
878v87807.02.2023 13:49
-
NASRETDINOV105.04.2023 08:20