Заполнить массив а(15) ручным способом и посчитать в нем количество отрицательных элементов. на qbas,

for i=1 to 15

input a(i)

if a(i)< 0 then n=n+1

next i

print n

1.сообщение может пополнить знания человека,если содержащиеся в нем сведения являются для человека новыми и понятными. вряд ли пополнит ваши знания, к примеру, такой вот текст, взятый, из энциклопедии: «резонанс – явление увеличения амплитуды вынужденных колебаний при приближении частоты внешнего воздействия к одной из частот собственных колебаний динамической системы». таким образом, информация понятна, если она выражена на языке доступном для получателя. вместе с тем, совершенно понятное сообщение «треугольник – фигура, имеющая три угла и три стороны» не расширяет ваши знания.оно для вас неинформативно, хотя это же сообщение будет нести информацию для учеников 1 класса.;

Program asd; uses crt; const n=5; var a: array[1..n] of integer; var p,s: real;   i: integer; begin clrscr; for i: =1 to n do   begin  a[i]: =random(100)+1;     write(a[i]: 4);   end;   p: =1;     for i: =1 to n do    begin    if a[i] mod 3=0 then    begin    s: =s+a[i];   p: =p*a[i];   end;     end;     writeln;   writeln('сумма матрицы: ',s,' произведение матрицы: ',p); end.