ilyaronaldo
02.05.2023 15:26

Составить блок-схему решения линейного уравнения ax=b в зависимости от параметра.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nastyaozernova
26.02.2022 14:04

C++

#include <iostream>

#include <ctime>

using namespace std;

void sort(int* arr, int size);

int main()

{

srand(time(0));

int size = 10;//Укажешь SIZE

int* arr = new int[size];

for (int i = 0; i < size; i++)

{

 arr[i] = 1 + rand() % 50;

 cout << arr[i] << "  ";

}

sort(arr, size);

cout << endl << endl;

for (int i = 0; i < size; i++)

{

 cout << arr[i] << "  ";

}

return 0;

}

void sort(int* arr, int size)

{

int temp = 1;

for (int i = 0; i < size; i++)

{

 for (int j = 0; j < size; j++)

 {

  if (arr[i] < arr[j])

  {

   temp = arr[j];

   arr[j] = arr[i];

   arr[i] = temp;

  }

 }

}

}

Объяснение:

0,0(0 оценок)
Ответ:
алибек29
07.09.2020 03:00
Const a=10;
type mas=array[1..a] of integer;
     mas1=array[1..3] of byte;
var R, Q, P:mas;
    X:mas1;
    i:byte;

procedure Form(var R, Q, P:mas);
var sr, sq, sp:byte;
begin
sr:=0;
sq:=0;
sp:=0;
for i:=1 to a do
 begin
 if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i];
 if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i];
 if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i];
 end;
x[1]:=sr;
x[2]:=sq;
x[3]:=sp;
writeln('Massiv x');
for i:=1 to 3 do
write(x[i]:3);

end;

begin
randomize;
for i:=1 to a do
 begin
 R[i]:=random(10);
 Q[i]:=random(10);
 P[i]:=random(10);
 end;
writeln('Massiv r');
for i:=1 to a do
write(R[i]:3);
writeln;
writeln('Massiv Q');
for i:=1 to a do
write(Q[i]:3);
writeln;
writeln('Massiv P');
for i:=1 to a do
write(P[i]:3);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота