Вычислить значение функции для отрицательных элементов массива и подсчитать их количество - Turbo Pascal

  1. дан одномерный массив P, который состоит из 32 элементов. вычислить значение функции для отрицательных элементов массива и подсчитать их количество


textual

Код к задаче: «Вычислить значение функции для отрицательных элементов массива и подсчитать их количество - Turbo Pascal»

var n,i,k: integer; b, A: real;
a:array [1..n] of real;
 
begin
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
n:=32; k:=0; b:=-3.85;
for i:=1 to n do 
readln(a[i]);
 
for i:=1 to n do 
if (a[i]<0) then begin
k:=k+1;
A= ((sqr(log(a[i])^i))+b)/(0.7*(a[i])^i -b);
writeln(A); end;
writeln(k);
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.818 из 5



Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса: