А на PascalABC.NET вот так:
begin
var a := ReadArrReal(15);
Abs(a[a.FindIndex(p-> p > 0)+1:].Product).Println
end.
1.Информационная безопасность — практика предотвращения несанкционированного доступа, использования, раскрытия, искажения, изменения, исследования, записи или уничтожения информации.
2. Компью́терный ви́рус — вид вредоносных программ внедряться в код других программ, системные области памяти, загрузочные секторы и распространять свои копии по разнообразным каналам связи.
Компью́терный ви́рус — вид вредоносных программ внедряться в код других программ, системные области памяти, загрузочные секторы и распространять свои копии по разнообразным
3.Защита личной информации
4. Фаил->свединия-> щащитить документ->зашифровать паролем
5.Если не установить пароль,будет утечка личной информации. Появятся вирусы.
#include <stdio.h>
#include <iostream>
#include <locale.h>
#include <ctime>
int main() {
setlocale(LC_ALL, "rus");
system("chcp 1251");
const int SIZE = 256;
int i, j, ch;
char str[SIZE];
std::cout << "Your string, please" << std::endl;
for (i = 0; i < SIZE - 1 && (ch = getchar()) != -1 && ch != '\n'; i++) {
str[i] = ch;
}
std::cout << "Изначальная строка:\n" << str << "\n\n" << std::endl;
for (i = 0; i < SIZE - 1; i++) {
if (str[i] == '.') {
if (str[i + 1] == '.' && str[i + 2] == '.') {
i += 2;
continue;
}
else {
for (j = SIZE - 3; j > i; j--) {
str[j + 2] = str[j];
}
str[i + 1] = '.';
str[i + 2] = '.';
i += 2;
}
}
}
std::cout << "Измененная строка:\n" << str << "\n\n" << std::endl;
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, которая вычисляет произведение модулей элементов одномерного массива, расположенных после первого положительного элемента. массив состоит из 15 вещественных элементов.
На питоне так:
Объяснение:
using math
mass = []
for i in range(15):
mass.append(int(input()) #Вводим массив
#Сама программа:
res = 1
was = False
for i in range(15):
if not was and mass[i] > 0:
was = True
if was:
res *= mass[i]
print(res)