40 ! 1) дан массив действительных чисел, размерность которого n. подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 2)дана последовательность чисел, среди которых имеется один нуль. вывести на печать все числа до нуля включительно. 3)дана последовательность из n различных целых чисел. найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числа). решите, , в паскале и пришлите скриншот решения. копировать не нужно.

👇

Увидеть ответ

Ответ:

romanbeletsky2

28.03.2020

ответ:

1) var a: array [1..100] of integer;

n,i,k,t,m: integer;

begin

read(n);

for i: = 1 to n do

a[i]: = random(100)-50;

for i: = 1 to n do

if a[i]=0 then

k: =k+1

else if a[i]> 0 then

m: =m+1

else if a[i]< 0 then

t: = t+1;

writeln('нулевых чисел: ',k ,'больше нуля : ', m,'меньше нуля: ',t);

end.

объяснение:

4,8(65 оценок)

Ответ:

maryg14

28.03.2020

даром ничто не дается: судьба

жертв искупительных просит

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

воля и труд человека дивные дивы творят!

знай: сила не в богатстве, не в том – велик ли, мал ли чин а в равенстве и братстве!

о сердце не научится любить,которое устало ненавидеть.

той руки удар смертелен, которая ласкала нас.

у счастливого недруги мрут, у несчастного друг умирает.

4,4(23 оценок)

Открыть все ответы

Ответ:

ZakAnyta

28.03.2020

Var
a, b, c, d, e, f, g, h, i, j, x, y: integer;
begin
write('введите 10 чисел: ');
read(a, b, c, d, e, f, g, h, i, j);
if a < 0 then y := y + 1 else x := x + 1;
if b < 0 then y := y + 1 else x := x + 1;
if c < 0 then y := y + 1 else x := x + 1;
if d < 0 then y := y + 1 else x := x + 1;
if e < 0 then y := y + 1 else x := x + 1;
if f < 0 then y := y + 1 else x := x + 1;
if g < 0 then y := y + 1 else x := x + 1;
if h < 0 then y := y + 1 else x := x + 1;
if i < 0 then y := y + 1 else x := x + 1;
if j < 0 then y := y + 1 else x := x + 1;
writeln('количество положительных чисел: ', x);
writeln('количество отрицательных чисел: ', y);
end.

4,7(36 оценок)

Ответ:

mminovskaya777

28.03.2020

Определим функцию f (x) = x^2 - 5cos(x-1); Необходимо найти ноль функции f (x) , т.е. значение х, при котором f(x) = 0;
f(x) обратится в 0 , если cos(x-1) > 0 => - pi/2 < x < pi/2 =>
=> (2 - pi)/2 < x < (2 + pi)/2
Корня будет два. Определим интервал для первого корня.
Левая граница а = - 0,57, правая граница b = 1
Для второго корня левая граница а = 1, правая b = 2
корни будем находить методом деления пополам.
Интервал [ a, b] делится пополам и определяется знак функции в этой точке, в зависимости от знака изменяется левая или правая граница интервала.

Программа будет следующей:

function f(x: real): real;
begin
f:=x*x-5*cos(x-1);
end;
{ основная программа }
var a,b,c,eps: real;
    k: integer;
{ a - начало интервала, b - конец }
begin
write('a = '); readln(a);
write('b = '); readln(b);
if f(a)*f(b)<0 then
begin
    write('точность вычислений eps: '); readln(eps);
    k:=1;
    while abs(a-b)>eps do
    begin
      c:=(a+b)/2;
      if f(c)<>0 then
      begin
        if f(c)*f(b)<0 then
          a:=c
        else
          b:=c
      end;
      k:=k+1;
    end;
    writeln('корень = ',a:12:8);
    writeln('количество итераций: ',k);
end
else
     writeln('интервал задан неверно');
end.

a = -0.57
b = 1
точность вычислений eps: 0.00001
корень = -0.51726021
количество итераций: 19

a = 1
b = 2
точность вычислений eps: 0.00001
корень =   1.83345795
количество итераций: 18

4,4(36 оценок)

Это интересно:

Здоровье

27.09.2022

5 простых советов по уходу за зубными протезами...

Кулинария-и-гостеприимство

16.11.2022

Как собрать идеальный пляжный обед?...

Хобби-и-рукоделие

06.04.2022

Как разгладить мятую бумагу: простые методы и советы...

Образование-и-коммуникации