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

Нужно сформировать линейный массив по формуле, вывод должен быть в строку и столбик. найти количество элементов некратных 7. количество отрицательных элементов. удалить 3 элемент и вставить 99 на 5 место

👇
Ответ:
патося37
патося37
24.12.2022
Const
maxn = 100;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
i, n, k7, kotr: longint;
begin
writeln('Введите количество элементов массива:');
readln(n);
for i := 1 to n do begin
a[i] := random(100); //i * i div a[i - 1];
if (a[i] mod 7 = 0) then
inc(k7);
if (a[i] < 0) then
inc(kotr);
end;
write(a[i], ' ');
for i := 3 to 5 do
a[i] := a[i + 1];
a[5] := 99;
for i := 1 to n do
writeln(a[i]);
end.
И где, собственно, формула?
4,8(1 оценок)
Открыть все ответы
Ответ:
Hеll
Hеll
24.12.2022
Если панель инструментов "рисование" или "текстовые эффекты" не видна, перейдите в меню по пути вид – панели инструментов для активации панели инструментов. на панели инструментов рисование или текстовые эффекты щёлкните значок галерея текстовых эффектов. значокв диалоговом окне галерея текстовых эффектов выберите стиль текстового эффекта и нажмите кнопку "ок". объект текстового эффекта вставляется в документ. объекты текстовых эффектов являются пользовательскими фигурами. с панели инструментов "параметры трёхмерного изображения" можно в любой момент перейти от двумерного просмотра к трёхмерному и обратно. дважды щёлкните объект, чтобы перейти в режим редактирования текста. замените стандартный текст эффекта своим. чтобы выйти из режима редактирования текста, нажмите клавишу esc.
4,8(66 оценок)
Ответ:
PolinaGetto
PolinaGetto
24.12.2022

Код

#include <iostream>#include <vector>int main() {    int n;    std::vector<int> sequence;    std::cin >> n;    for(auto i = 0; i < n; ++i) {        int number;        std::cin >> number;        sequence.push_back(number);    }    int as = 0, bs = 0, cs = 0;    for (auto &el : sequence) {        switch (el) {            case 1:                ++as;                break;            case 2:                ++bs;                break;            case 3:                ++cs;                break;            default:                throw std::runtime_error("All elements shall be into [1;3] range.");        }    }    int an_answer = std::min({bs + cs, as + cs, bs + cs});    std::cout << an_answer << std::endl;    return 0;}
даю (там ещё бонусом немного) Напишите прогу на C++ Задана последовательность целых чисел a1,a2,…,an
4,5(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ