В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
gareevaa05
gareevaa05
28.10.2022 16:18 •  Информатика

2. Оқушылар Виртуальды қабырғалармен жұмыс жасауда компьютерде бақылайтын
Нысан
4. Оқытудың мазмұнын өзгерту жағдайында жаңа ақпараттық технологияның бірінші
бағыты
5. Жаңа ақпараттық технологияның бағыттары
б. К.А.Кайминнің ақпараттық мәдениетке берген анықтамасы
7. Проблемалық оқытудың технологиялық мақсаттарының бірі
8. Ойын арқылы балаларды болашақ өмірге тәрбиелеу керек деп шкір айтқан XVII
ғасыр ғалымдары
9. Баланы күшті қоғамдық қатынастар жүйесіне енгізіп және оған мәдениет байлығын
игертуге мүмкіндік беретін ойынның қазметі
10. Диваев өзінің еңбектерінде қазақтың ұлттық ойындарын неше топқа бөліп қарады?
11. «Ойында бала қалай болса, өмірде кәсіби қызмет саласында көбінесе сондай
болады»- деген кір айтқан ғалым
12. Ойын технологиясын зерттеуде үлес қосқан қазақ ғалымы
13. А.Диваевтың кішкентай бүлдіршіндер ойынына кіргізген ойындары
14. Білім беруді ізгілендіру технологиясын ұсынған ғалым
15. А.Ш.Амонашвилидің өмірге келген уақыты

Показать ответ
Ответ:
Дако031204
Дако031204
15.03.2022 00:32
Пример, ненужное уберешь

const
    handsfree = true;

var
    a: array[1..100, 1..100] of real;
    max, min: real;
    sum, product: real;
    i, j, m, n, k: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;
    
    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
    
    {минимумы и максимумы}
    max := a[1, 1];
    min := a[1, 1];
    for i := 1 to m do
        for j := 1 to n do
        begin
            if max < a[i, j] then max := a[i, j];
            if min > a[i, j] then min := a[i, j];
        end;
    writeln('max = ', max);
    writeln('min = ', min);
    
    {сумма, произведение, пр. агригаты}
    sum := 0;
    product := 1;
    for i := 1 to m do
        for j := 1 to n do
            if a[i, j] <> 0 then {если нужен фильтр}
            begin
                sum := sum + a[i, j];
                product := product * a[i, j];
                k := k + 1;
            end;
    writeln('sum = ', sum);
    writeln('product = ', product);
    writeln('average = ', sum / (n * m));
    writeln('average (selected) = ', sum / k);
end.
0,0(0 оценок)
Ответ:
dankillyou2014
dankillyou2014
04.03.2022 00:53
Всего - 6,5 часов
Ожидание 2 часа, осталось 4,5 часов
Активен 1 заражённый
1 шаг:
Послано на 15, заражено 15*0.2+1=4(3 в ожидании на 2 часа), осталось 3,5 часов
2 шаг
Послано на 15, заражено 15*0.2+4=7(3 в ожидании на 1 час, 3 в ожидании на 2 часа), осталось 2,5 часов
Активны 4 заражённых
3 шаг
Послано на 15*4=60, заражено 60*0.2+7=19(12 в ожидании на 2 часа, 3 в ожидании на 1 час), осталось 1,5 часов
Активны 7 заражённых
4 шаг
Послано на 15*7=105, заражено 105*0.2+19=40, осталось 0.5 часов
За пол часа рассылок не произойдёт.
ответ: 40 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота