Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). Составьте блок-схему, напишите текст программы. На Ассемблере!
Если не ошебаюсь то так ) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.
var a,d:array[1..255]of integer; i,c,n:byte; begin write('n='); read(n); for i:=1 to n do begin write('a[',i,']='); read(a) end; writeln; c:=0; for i:=1 to n-1 do if a>a[i+1] then begin c:=c+1; d[c]:=i end; writeln('TaKuX EJIEMEHTOB:',c); for i:=1 to c do write(d,' '); writeln end.
2) Дан целочисленный массив A размера N,являющийся перестановкой. Найти количество инверсий в данной перестановке,т.е. таких пар Ai И Aj элементов в которых большее число находится слева от меньшего:Ai>Aj при i<j>L) и целочисленный массив размера N. Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением. Что-то я не понял, что это за Л? Вот решил так:
var a:array[1..256]of integer; i,j,n:byte; c:integer; begin write('n='); read(n); for i:=1 to n do begin write('a[',i,']='); read(a) end; writeln; c:=0; for i:=1 to n-1 do for j:=i+1 to n do if a>a[j] then inc(c); writeln('Колличество инверсий - ',c); end.
Если не ошебаюсь то так ) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа,
и количество таких элементов. Найденные номера выводить в порядке их возрастания.
var a,d:array[1..255]of integer;
i,c,n:byte;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a)
end;
writeln;
c:=0;
for i:=1 to n-1 do
if a>a[i+1] then
begin
c:=c+1;
d[c]:=i
end;
writeln('TaKuX EJIEMEHTOB:',c);
for i:=1 to c do write(d,' ');
writeln
end.
2) Дан целочисленный массив A размера N,являющийся перестановкой.
Найти количество инверсий в данной перестановке,т.е. таких пар Ai И Aj элементов
в которых большее число находится слева от меньшего:Ai>Aj при i<j>L) и целочисленный массив размера N.
Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением.
Что-то я не понял, что это за Л? Вот решил так:
var a:array[1..256]of integer;
i,j,n:byte;
c:integer;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a)
end;
writeln;
c:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a>a[j] then inc(c);
writeln('Колличество инверсий - ',c);
end.
При ожогах:
–охладить место ожога
–закрыть влажной повязкой
–покой и противошоковые меры
При обмороке:
–укладываем, не даем упасть и удариться
поднимаем пострадавшему повыше ноги
–расстегиваем тесную одежду
обеспечиваем приток свежего прохладного воздуха
–контролируем состояние
вызываем «Скорую », если не очнулся через 10 минут
При остановки дыхания:
– Обеспечьте проходимость верхних дыхательных путей. ...
–Запрокиньте голову пострадавшего, удерживая шею одной рукой. ...
–Положите на рот пострадавшего салфетку, платок, кусок ткани или марли, чтобы защитить себя от инфекций. ...
–Следите за движением грудной клетки пострадавшего.