ladysweet1
26.12.2020 02:11

Можете написать решение ​
нажмите на фотку и она откроется !

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
maksimananchenko
10.04.2023 14:06
#include <iostream>
using namespace std;

struct link 

    double data; 
    link* next; 
}; 
 
link* first = NULL; 
 
void additem(int d) // добавление элементов список

    link* newlink = new link; 
    newlink->data = d; 
    newlink->next = first; 
    first = newlink; 

 
void display() // вывод на экран

    link* current = first; 
    while(current) 
    { 
        cout << current->data << " "; 
        current = current->next; 
    }  
}  

int max() // max

    link* current = first; 
    int m=0;
    while(current) 
    { 
        if (current->data > m) m = current->data; 
        current = current->next; 
    }
    return m;


void norm(int m) // нормализация

    link* current = first; 
    while(current) 
    { 
        current->data /= m; 
        current = current->next; 
    }  


int main() 

    int n=10;
    int a;
    for (int i=1; i<n; i++) {
    cin >> a;
    additem(a); 
    }
    display();
    cout << endl << max() << endl;
    norm(max());
    display();
}

Пример:
64 45 19 42 83 38 71 23 52
83
0.771084 0.542169 0.228916 0.506024 1 0.457831 0.855422 0.277108 0.626506
0,0(0 оценок)
Ответ:
evzrezovatatya
03.02.2022 13:05
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,0,1);
  a.Println(2); Writeln(2*a.ColCount*'-');
  var b:=a.ElementsByRow.Where(x->x=1).ToArray;
  var k:=b.Count; b.Println;
  Writeln('k=',k)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
 0 0 1 1 1 1 1 1 0 0 1 0
 0 1 1 1 0 0 1 1 1 0 1 0
 1 0 0 1 0 1 0 0 0 0 0 0
 1 0 0 0 0 1 0 1 0 0 1 0
 1 1 1 1 0 1 1 0 1 0 0 1

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