Объяснение:
Я думаю это майкрасофт ведь он создал персональные компьютеры, игровые приставки и т.п.
C 2012 года производит собственный планшетный компьютер — Surface. Продукция Microsoft продаётся более чем в 80 странах мира, программы переведены более чем на 45 языков.
Штаб-квартира компании находится в городе Редмонд, штат Вашингтон, США.
Штат сотрудников корпорации на 5 июня 2014 года составляет 127 104 человека[8]. В 2018 году заняла второе место в списке 500 лучших работодателей мира по мнению журнала Forbes[9].
Надеюсь ты оценишь мой ответ ;)
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая определяет сколько раз встречается максимальное число в и-той последовательности, ограниченная n значением. при этом каждое вводимое число должно храниться в памяти компьютера.
var
A: array of integer;
i, n, MAX, tmpCount: integer;
begin
write('Введите n = '); read(n);
SetLength(A, n);
MAX := 0;
for i := 0 to n-1 do
begin
write('A[', i+1, '] = ');
read(A[i]);
if A[i] > MAX then
begin
tmpCount := 0;
MAX := A[i];
tmpCount := tmpCount + 1;
end
else
if A[i] = MAX then tmpCount := tmpCount + 1;
end;
writeln('Максимальное число ',MAX,' встречается ',tmpCount,' раз.');
readln;
end.