ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 20 ...
ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА
Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива на экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.
паскаль массивы
Есть ответ
17.12.2022
492
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
