Дан массив, содержащий n элементов и заполненный случайными числами от -10 до 9. сформировать новый массив из значений элементов, стоящих на четных местах. подсчитать количество отрицательных и положительных значений элементов в новом массиве.
Var a,b:array of integer; n,i,p,o:integer; begin readln(n); setlength(a,n); for i:=0 to n-1 do a[i]:=random(-10,9); n:=n div 2; setlength(b,n); for i:=0 to n-1 do begin b[i]:=a[2*i]; if b[i]>0 then p+=1 else if b[i]<0 then o+=1; write(b[i],' '); end; writeln(); writeln('Положительных ',p); writeln('Отрицательных ',o); end.
Var b,c,n,i,r:integer; mass1:array[1..1000] of integer; mass2:array[1..1000] of integer; begin writeln('Введите кол-во элементов массива'); read(n); r:=1; for i:=1 to n do begin mass1[i]:=random(19)-10; if i mod 2=0 then begin mass2[r]:=mass1[i]; r:=r+1; end; end; for i:=1 to r do if mass2[r]>0 then c:=c+1 else b:=b+1; writeln('Исходный массив'); for i:=1 to n do write(mass1[i]:4); writeln; for i:=1 to r do write(mass2[i]:4); writeln; writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b); end.
Червь – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу, троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что он не может самостоятельно размножаться.
Program q1; uses crt; const n=10; var i,j:integer; mass:array [1..n] of integer; countNum:integer; // переменная для хранения количества нечетных чисел proizv:integer; // переменная для хранения произведения нечетных чисел BEGIN proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} Writeln('Случайные целые числа: '); for i:=1 to n do begin mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {Вычисление произведения и количества нечетных чисел} for i:=1 to n do if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. . begin inc(countNum); //увеличиваем на один кол-во нечетных чисел proizv:=proizv*mass[ i ]; // высчитываем произведение end; {Вывод результатов} writeln; writeln('Всего нечетных чисел: '+inttostr(countNum)); writeln('Их произведение: '+inttostr(proizv)); END.
n,i,p,o:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do a[i]:=random(-10,9);
n:=n div 2;
setlength(b,n);
for i:=0 to n-1 do begin
b[i]:=a[2*i];
if b[i]>0 then p+=1 else if b[i]<0 then o+=1;
write(b[i],' ');
end;
writeln();
writeln('Положительных ',p);
writeln('Отрицательных ',o);
end.