47

ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив…

livter777 05 июля 2022

ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива наэкран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.

категория: информатика

46

Program pr; Var a: array[1… 20] of integer; i,sum: integer; sr: real; Beginfor i: =1 to 20 do a[i]: =random (100); for i: =1 to 20 do Write (a[i],'; '); sr: =0; for i: =1 to 10 do sr: =sr+a[i]; sr: =sr/10; sum: =0; for i: =11 to 20 do sum: =sum+a[i]; Writeln; Writeln ('srednee=',sr); Writeln ('summa=',sum); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...