Составить программу, которая определяет сколько раз встречается в таблице а максимальное по величине число.pascal.массивы. заранее : )

const n=100;

m=100;

var a: array[1..n,1..m] of integer;

i,j,maxi,maxj,k: integer;

begin

randomize;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        a[i,j] : = random(100);

    end;

end;

maxi : = 1;

maxj : = 1;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        if (a[i,j] > a[maxi,maxj]) then begin

            maxi : = i;

            maxj : = j;

        end;

    end;

end;

k : = 0;

for i : = 1 to n do begin

    for j  : = 1 to m do begin

        if (a[i,j] == a[maxi,maxj]) then k : = k + 1;

    end;

end;

writeln('k = ', k);

end.

Відповідь:

Профориентация

Школьникам

Взрослым

Студентам

Тесты

Список профессиий

FAQ

Статьи

Книги

Задать вопрос

ПрофГид

Профессии

Информационные технологии (IT)

Показаны записи 1-20 из 70.

Аналитик

Компьютерный лингвист

Инженер-программист

Архитектор интеллектуальных систем управления беспилотного транспорта

UI-дизайнер

UX-аналитик

UX-дизайнер

Художник компьютерной графики

Лингвоэксперт

Intelligent Systems Developer

Агроинформатик, агрокибернетик

Quant developer

Data Mining Specialist

BI разработчик (BI архитектор)

Программист Kotlin

Программист JavaScript

Программист C++

Биоинформатик

Архитектор информационных систем

Сценарист компьютерных игр

Пояснення:

//pascalabc.net 3.1 сборка 1200 function change(condition: boolean; value, default_value: integer): integer; begin   if condition then       change : = value   else  change : = default_value; end; const   n = 12; begin   var a : = arrrandom(n, -10, 10);   a.println;     if a.where(x -> x > 0).count > a.where(x -> x < 0).count then begin       var half_max : = a.max / 2;       var mult : = 1;       mult : = a.where(x -> x > half_max).aggregate((mult, x)-> mult * x);       a.transform(x -> change((x < 0), mult, x));   end   else       a.transform(x -> change((x < 0), 0, x));         a.println; end.