rebkovets2015
02.07.2022 03:15

сделать блок схему! #include
#include //содержит rand()
#include //содержит time()
using namespace std;
void output(int* a, int n) // функция вывода массива
{
for (int i = 0; i < n; i++)
cout << a[i] << " ";
}
int main()
{
setlocale(LC_ALL, "Russian"); //подключение русского языка
srand(time(NULL));
int n = 1 + rand() % 15; //задаем рандомную размерность массива от 1 до 15
int* a = new int[n];
int count = 0, // количество отрицательных элементов
sum = 0, // сумма отрицательных элементов
pos = 0; // номер последнего положительного элемента
for (int i = 0; i < n; i++)
a[i] = rand() % 2001 - 1000; //заполняем массив числами от -1000 до 1000
cout << "Изначальный массив" << endl;
output(a, n);
for (int i = 0; i < n; i++) {
if (a[i] < 0) //если элемент отрицательный
{
count++; //считаем количество
sum += a[i]; //считаем сумму
}
if (a[i] > 0) //поиск последнего положительного
pos = i;
}
//перестановка первого элемента массива и последнего положительного
int temp = a[0];
a[0] = a[pos];
a[pos] = temp;
cout << "\nМассив после выполнения программы" << endl;
output(a, n);
cout << "\nСумма отрицательных элементов массива\n" << sum;
cout << "\nКоличество отрицательных элементов массива\n" << count;
delete[] a;
}

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
petrosiannikita
26.05.2020 06:02

1.

Program u666;

Var

x, y, z, t, n, e, z1, z2, z3: real;

Begin

 readln (e, x, y);

 if sqrt (3*y)+x = 14

 then  

 begin

   z1:= Exp(3*x*y);

   z2:= x+3*y;

   z3:= 0.5*x;

   writeln (z1);

   writeln (z2);

   writeln (z3)

 end

 else

   z:= 0;

   writeln (z);

end.

2. Program Regret;

var x: integer;

begin

 read (x);

 if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)

 then write ('31');

 if (x=4) or (x=6) or (x=9) or (x=11)

 then write ('30');

 if (x=2)

 then write ('28')

end.

Объяснение:

Интернет урок)


с информатикой. Задание 1. Картинка. Составить блок-схему алгоритма и программу на Паскале для вычис
с информатикой. Задание 1. Картинка. Составить блок-схему алгоритма и программу на Паскале для вычис
0,0(0 оценок)
Ответ:
pudova20001katya
11.12.2020 22:46
Uses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
    for i:=1 to n do
        begin
            writeln;
               for j:=1 to m do
                  begin
                     a[i,j]:=random(30);
                      write(a[i,j]:4);
                  end;
          end;
writeln;
for j:=1 to m do
  begin
      s:=0;k:=0;
          for i:=1 to n do
               if a[i,j]mod 2<>0 then
                   begin
                       s:=s+a[i,j];
                        k:=k+1;
                   end;
      if k<>0 then
         begin
            c:=c+1;
            b[c]:=s/k;
         end;
     end;
for i:=1 to c do
   write(b[i]:8:2);
readkey;
end.

          
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота