Я считаю,что социальные сети это прекрасное изобретение человека.Мы можем переписываться не тратя деньги как на телефоне.Говорить с другом о чём то секретном или важном ведь кроме вас не кто не сможет посмотреть вашу переписку.но в соц.сетях есть и не очень хорошая сторона.в интернете или соц сетях человек может долго сидеть,а это может привести к нарушению зрения или психологического растройства. именно из-за интернета дети убивают родителей или заболевают серьёзными болезнями.
У меня двоякое отношение к социальным сетям. С одной стороны, прекрасное изобретение, открывающее перед нами новые возможности общения на расстоянии, быстрого обмена информацией. Но с другой, с появлением социальных сетей мы со временем все дальше уходим от реального общения. Искреннюю улыбку товарища нам давно заменила скобка в конце предложения, а вместо рассказов о жизни, мы листами фото в инстаграме.
function FirstNegative(a: V; n: integer): integer; var i: integer; begin i := 0; Result := 0; repeat i := i + 1; if a[i] < 0 then Result := i until (Result > 0) or (i > lim) end;
procedure InpMass(var a: V; var n: integer; mName: string); // Организует ввод массива var i, p: integer; begin writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода'); i := 0; repeat read(p); i := i + 1; if p <> 7777 then a[i] := p; until (p = 7777) or (i > lim); n := i - 1 end;
var a, b: V; m, n, p, q: integer;
begin InpMass(a, m, 'A'); InpMass(b, n, 'B'); p := FirstNegative(a, m); q := FirstNegative(b, n); if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p) else writeln('Номер первого отрицательного элемента в массива B: ', q) end.
Тестовое решение:
Вводите элементы массива A; 7777 - конец ввода 37 14 -25 32 30 -29 38 27 7777 Вводите элементы массива B; 7777 - конец ввода 33 -36 23 -17 -3 -16 -33 33 -48 -39 30 7777 Номер первого отрицательного элемента в массива B: 2
begin readln(n); for i: byte := 1 to n do begin readln(buf); if (buf > 0) then if (p2 = 0) then p2 := buf else p2 := p2 * buf else if (p1 = 0) then p1 := buf else p1 := p1 * buf; end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then writeln('|', p1, '| > |', p2, '|') else if (abs(p1) < abs(p2)) then writeln('|', p1, '| < |', p2, '|') else writeln('|', p1, '| = |', p2, '|') end.