Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. определить количество отрицательных чисел больших -5 в данной последовательности.
Если используется Pascal.ABC, то строку massiv[i] := random(-19)+10; нужно заменить на massiv[i] := random(-10, 10);
const countOfElements = 20; var i, countOfNumbers, randomNumber: integer; massiv : array[1..countOfElements] of integer; begin Randomize; countOfNumbers := 0; for i:=1 to countOfElements do begin massiv[i] := random(-19)+10; if ( (massiv[i] < 0) AND (massiv[i] > -5) ) then countOfNumbers += 1; end; writeln(countOfNumbers); end.
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string; c:char; i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do begin c:=s1[i];{запомним символ} k:=0; for j:=length(s1) downto i+1 do{с конца строки ищем такие же} if s1[j]=c then{если есть} begin k:=1;{фиксируем} delete(s1,j,1);{удаляем} end; if k=1 then delete(s1,i,1){если не один, удаляем} else i:=i+1;{иначе проверяем следующий} end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
const
countOfElements = 20;
var
i, countOfNumbers, randomNumber: integer;
massiv : array[1..countOfElements] of integer;
begin
Randomize;
countOfNumbers := 0;
for i:=1 to countOfElements do
begin
massiv[i] := random(-19)+10;
if ( (massiv[i] < 0) AND (massiv[i] > -5) ) then countOfNumbers += 1;
end;
writeln(countOfNumbers);
end.