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

Скодом в excel . напиши код. и данный код неправильно написанный в приложении 3 . нужно

Показать ответ
Ответ:
MrKepka
MrKepka
19.10.2021 17:53
В C++
#include <iostream>
int main()
{
    using namespace std;

    const int n = 6;
    double arr[n];

    for (int i = 0; i < n; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> arr[i];
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;

    double p = 1.0;
    bool flag = false;
    for (int i = 0; i < n; ++i)
        if (arr[i] < 0)
        {
            p = p * arr[i];
            flag = true;
        }
   
    if (!flag)
        p = 0.0;
   
    cout << "Multiplication of negative: " << p << endl;

    int imax = 0;
    for (int i = 1; i < n; ++i)
        if (arr[i] > arr[imax])
            imax = i;

    double s = 0;
    for (int i = 0; i < imax; i++)
        if (arr[i] > 0)
            s += arr[i];

    cout << "Sum of positive before max: " << s << endl;

    double temp;
    for (int i = 0, m = n - 1; i < n / 2; ++i, --m)
    {
        temp = arr[i];
        arr[i] = arr[m];
        arr[m] = temp;
    }

    for (int i = 0; i < n; ++i)
        cout << arr[i] << "   ";
    cout << endl;
    return 0;
}
0,0(0 оценок)
Ответ:
khorolovgusenoy2lzx
khorolovgusenoy2lzx
20.07.2022 02:07
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,min,max:integer;
begin
  min:=maxint; max:=-maxint;
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    a:=random(61)-30;
    if a>max then max:=a;
    if a<min then min:=a;
    write(a:4);
  end;
  writeln;
  if max<=(min+25) then writeln ('максимальное ',max ,' превышает минимальное ',min,' не более чем на 25')
  else writeln ('максимальное ',max ,' превышает минимальное ',min,' более чем на 25');
 end.

Тест №1
Число элементов последовательности 3
  -9   2  10
максимальное 10 превышает минимальное -9 не более чем на 25

Тест №2
Число элементов последовательности 5
  10 -17  13  26  -2
максимальное 26 превышает минимальное -17 более чем на 25
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота