Дан массив вещественных чисел.вывести на экран новое состояние массива в котором ко всем нулевым элементам прибавить n из всех положительных элементов вычесть a, ко всем отрицательным элементам прибавить b. в паскале. значение a b n вводятся с клавиатуры

👇

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

Ответ:

tatyanasotniko

28.04.2023

Прикрепил решение в файле

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

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

Ответ:

незнайка1186

28.04.2023

1, 2. Посчитаем тех, кто записался хоть куда-нибудь.
Сложим тех, кто записался на макраме, на футбол и в театральный кружок: 14 + 18 + 10 = 42. В этой сумме те, кто записались в 2 кружка, участвуют дважды, те, кто в три кружка - трижды. Чтобы получить нужное число, нужно вычесть число тех, кто записался ровно в 2 кружка, и удвоенное число тех, кто записался в три кружка. Получаем 42 - (3 + 8 + 5) - 2 * 2 = 22.
Если записали хотя бы куда-нибудь 22 человека, то никуда не записались 36 - 22 = 14 человек.

3. Из записавшихся на макраме (18 человек) нужно убрать тех, кто записались еще на 1 кружок (8 человек - еще на футбол, 5 человек - занимаются и театром) и тех, кто записался везде (2 человека). Остаётся 18 - 8 - 5 - 2 = 3 человека, записавшихся только на макраме.

4. Аналогично, 14 - 3 - 8 = 3 человека записались только на футбол.

5. Аналогично, 10 - 3 - 5 = 2 человека выбрали только театральный кружок.

6. По два кружка посещают 3 + 8 + 5 = 16 человек.

4,5(37 оценок)

Ответ:

annaa021

28.04.2023

1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.

2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.

3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.

4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.

6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.

7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.

9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.

12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.

13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.

14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.

15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.

16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.

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

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

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

17.11.2022

Как стать самым уверенным учеником в школе?...

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

04.02.2023

Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...

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

07.03.2023

Как играть в Колонизаторов...

Взаимоотношения