Регистрация
dima03102003
01.07.2022 18:20
Информатика
Есть ответ 👍

Вpascal 1. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) среднее арифметическое отрицательных нечетных элементов массива; 2) сумму элементов массива, расположенных за вторым нечетным положительным элементом. сжать массив, удалив из него все элементы, модуль которых не превышает 1. новый массив не заводить. 2. дана целочисленная прямоугольная матрица. 1) отсортировать столбцы матрицы по убыванию количества элементов меньших элементов побочной диагонали; 2) определить минимальный из максимальных элементов строк и его положение.

273
377
Посмотреть ответы 1

Ответы на вопрос:

izmaylova77
izmaylova77
4,7(48 оценок)
Var a,b,c,p: real; begin write('введите сторону a='); read(a); write('введите сторону b='); read(b); write('введите сторону c='); read(c); p: =(a+b+c)/2; write('s=',sqrt(p*(p-a)*(p-b)*(p-c)): 5: 2); end. 2. var a,b,x,c,y,z: integer; begin write('введите значение a='); read(a); write('введите значение b='); read(b); write('введите значение x='); read(x); write('введите значение c='); read(c); write('введите значение y='); read(y); write('введите значение z='); read(z); writeln('s=',(a+b*x)+(c*y*z)); end.

Популярно: Информатика