var a,b,c:array[1..100] of integer;
i,n:integer;
begin
n:=1;
for i:=1 to 25 do
begin
a[i]:=random(20)+100;
write(a[i],' ');
if (i > 14) and (i <21) then n:=n*a[i];
end;
writeln;
write('Произведение=',n); writeln;
end.
Python:
a = list()
#........заполнение массива..........
for i in range(0, len(a)):
if a[i]%2==0:
a[i]*=2
C++:
#include <iostream>
#include<vector>
using std::cin, std::cout, std::endl;
using std::vector;
int main(){
vector<int> mas;
/*
заполнение массива
*/
for (auto i = mas.begin(); i<mas.end(); ++i)
if(*(i) %2 == 0)
(*(i))*=2;
for (auto var:mas)
cout << var << " ";
return 0;
Программы, которая защищает компьютеры от вирусов называются антивирусными. примеры: Касперский, доктор Web, Avast, NOD 32 и т.д.
А еще защищает встроенный в операционную систему брандмауэр
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.