Дан массив а(n). определить количество нечетных и отрицательных элементов массива. изменить знак у элементов. вывести исходный и преобразованный массив и количество элементов.
Uses SysUtils,Windows; var a:array of Integer; i,n,s,o:Integer; begin o:=0; s:=0; SetConsoleOutputCP(1251); Randomize; write('Введите "N": '); readln(n); SetLength(a,n); for i:=0 to Length(a) do begin a[i]:=Random(10)-5; write(a[i]:3); end; Writeln; Writeln; for i:=0 to Length(a) do begin if a[i] mod 2=1 then Inc(s); if a[i]<0 then Inc(o); a[i]:=a[i]*(-1); end; Writeln('Кол-во отрицательных элементов: ',o); Writeln('Кол-во нечетных элементов: ',s); Writeln; for i:=0 to Length(a) do write(a[i]:3); readln; end.
1.Найти фотографии своего класса. 2.Создать первый слайд:Вставить фотографию всего класса,написать кто сделал презентацию и сделать надпись "Наш класс". 3.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок. 4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок. 5.Создавать слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них. 6.Предпоследний слайд сделать с пожеланиями своим одноклассникам. 7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!
1. Формат с фиксированной запятой (фиксированной точкой) предполагает размещение знака числа в самом старшем (левом) бите, а остальные биты отводятся под двоичное представление числа. Сама десятичная точка (запятая) не хранится, она подразумевается. Наибольшее распространение получили два представления чисел: когда запятая фиксируется после самого младшего разряда (и тогда мы имеем целое число с нулевой дробной частью), либо когда запятая фиксируется сразу после знакового разряда (и тогда мы имеем десятичную дробь с нулевой целой частью). В процессорах фирмы Intel и программно совместимых с ними, отдельное представление данных с фиксированной точкой отсутствует; в качестве такого представления используются целые числа, что фактически совпадает с первым из описанных При этом в двух байтах под разряды числа отводятся 15 бит. Следовательно, максимальное число может быть равно 2^15-1=32767.
2. Ноль в знаковом разряде означает, что число неотрицательное.
3. В коде ASCII для кодировки символов используется таблица размером 256 символов, так что символ занимает один байт. При этом первая половина таблицы (коды 0-127) фиксирована, а вторая может заполняться символами национальных алфавитов, поэтому существует множество кодовых таблиц ASCII. Например, в системе MS DOS для России используется кодовая таблица CР866, а в Windows - СР1251 В UNICODE для кодирования символа используются два байта, что позволяет иметь 65536 кодов.
var a:array of Integer; i,n,s,o:Integer;
begin
o:=0;
s:=0;
SetConsoleOutputCP(1251);
Randomize;
write('Введите "N": ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
begin
a[i]:=Random(10)-5;
write(a[i]:3);
end;
Writeln;
Writeln;
for i:=0 to Length(a) do
begin
if a[i] mod 2=1 then
Inc(s);
if a[i]<0 then
Inc(o);
a[i]:=a[i]*(-1);
end;
Writeln('Кол-во отрицательных элементов: ',o);
Writeln('Кол-во нечетных элементов: ',s);
Writeln;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
end.