М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Andreyyy56
Andreyyy56
28.02.2022 07:21 •  Информатика

Напишите програму в паскаль, ) в одномерном массиве из 10 элементов найти максимальный и вычислить сумму всех, которые стоят за максимамальным

👇
Ответ:
egekaterina201
egekaterina201
28.02.2022
Const
   N = 10;
Var
   A:array[1..N] of integer;
   i,Max,S:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    End;
WriteLn;
Max:=1;
For i:= 2 to N do
    if A[i]>A[Max] then Max:=i;
WriteLn('Max = A[',Max,'] = ',A[Max]);
For i:= Max+1 to N do
    S:=S+A[i];
WriteLn('Сумма элементов, стоящих за максимальным: ',S)
End.

Пример:

Исходный массив: -4 10 7 5 6 10 -5 -8 -5 3
Max = A[2] = 10
Сумма элементов, стоящих за максимальным: 13
4,5(74 оценок)
Ответ:
hhjufjifklkl
hhjufjifklkl
28.02.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

const n=10;
begin
  var a:=ArrRandom(n,-99,99); a.Println;
  var imax:=a.IndexMax;
  var s:=imax=n-1?0:a[imax+1:].Sum;
  Writeln('Max=',a[imax],', S=',s)
end.

Пример
6 42 -29 62 94 -7 83 -32 45 -72
Max=94, S=17
4,4(88 оценок)
Открыть все ответы
Ответ:
vlad1269
vlad1269
28.02.2022

Короче, с выводом не очень понял, поэтому будет 4 варианта, выбери сам

Обязательная часть программы:

import datetime

year, month, day = int(input('Введите год: ')), int(input('Введите месяц: ')), int(input('Введите день: '))

date = datetime.date(year, month, day)

delta = datetime.timedelta(days=1)

date = str(date + delta).split('-')[::-1]

Тут нужно выбрать одну из строк, будем рассматривать на примере 31 декабря 2019 года(то, что стоит после решетки и саму решетку не копируй:

Вариант 1:

print(*date)     # 01 01 2020  --- это вывод(обычный)

Вариант 2:

print(int(date[0]), int(date[1]), date[2])    # 1 1 2020 (без ведущих нулей)

Вариант 3:

print(str(int(date[0])) + str(int(date[1])), date[2]) #11 2020(без нулей и пробелов)

Вариант 4:

print(str(date[0]) + str(date[1]), date[2])      # 0101 2020(без пробелов)

4,4(94 оценок)
Ответ:
Rainbow619
Rainbow619
28.02.2022

о комитета полностью недействительным путём предложения новой теории измерений.

« Перефразируя Н.Р. Кампбела (Final Report, p.340), можно сказать что измерение, в самом широком смысле, определяется как присваивание чисел объектам и события согласно некоторому правилу (Стивенс, 1946, p.677). »

Огромное влияние на Стивенса оказали идеи другого гарвардского академика, лауреата нобелевской премии, физика Перси Бриджмена (1927), чью доктрину «Операционизм» Стивенс использовал для определения термина «измерение». К примеру, в определении Стивенса используется рулетка, которая определяет длину (объект измерения) как измеримую (следовательно количественную). Критики операционализма возражают, что он смешивает отношения между двумя объектами или событиями для свойств одного из объектов или событий (Hardcastle, 1995; Michell, 1999; Moyer, 1981a, b; Rogers, 1989).

Канадский исследователь измерительных теорий William Rozeboom (1966) был одним из первых критиков, резко высказавшихся против теории типов шкал Стивенса

Тип переменной зависит от контекста

Ещё одна проблема может заключаться в том, что одна и та же переменная может иметь разные типы шкал в зависимости от её измерения и целей анализа. Например, цвет волос обычно считается номинальной переменной, так как не имеет определённого порядка.[16] Тем не менее, расположить цвета в определённом порядке возможно несколькими в том числе и по оттенкам, с колориметрии.

Использование в психометрии

Объяснение:

4,5(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ