program massiv;
var
a,b,i,n,d,e,s:integer;
m:array[1..n] of integer;
begin
readln(n);
for i:=1 to n do
readln(m[i]);
a:=1;
b:=0;
for i:=1 to n do
begin
if m[i]<0 then a:=a*m[i];
if (m[i] mod 3 = 0) then b:=b+1;
end;
writeln(a,' ',b);
end.
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
1 Для удобство содержания
2 Гиперссылка— часть гипертекстового документа, ссылающаяся на элемент в этом документе
3-4 Чтобы сделать гиперссылку на страницу или файл в интернете, выделяете текст или картинку, которые потом станут кликабельны, и в верхнем меню выбираете последовательно Вставка - Ссылки - Гиперссылка (или нажимаете на выделенный текст или картинку правой кнопкой мыши, и в выпадающем меню выбираете пункт Гиперссылка).
Далее в окошке "Вставка гиперссылки" заполняете поля:
"Связать с" - выбираете Файл, Веб-страница
"Адрес" - вставляете ссылку на страницу или файл.
Нажимаете ОК и готово!
5 Итак, чтобы сделать оглавление в ворде автоматически, нужно сначала разбить документ на разделы с заголовками, а потом перейти во вкладку "Главная" - "Стили". К названиям разделов, которые требуется внести в содержание, примените соответствующие стили. Например, для названий разделов можно применить «Заголовок 1», а для подразделов «Заголовок 2».
6 А́вторское пра́во — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием
7 Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда
Объяснение:
Program p1;
Const N=10;
Var A:array[1..N] of integer;
proizvedenie,i:integer;
Begin
proizvedenie:=1;
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i]<0 then
proizvedenie:=proizvedenie*A[i];
Writeln('Произведение = ', proizvedenie);
End.
Program p2;
Const N=10;
Var A:array[1..N] of integer;
kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 3=0 then
kolvo:=kolvo+1;
Writeln('Кратных трём элементов ',kolvo, ' штук');
End.