М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lilianchic14
lilianchic14
10.05.2021 10:10 •  Информатика

На паскале. задан массив а размерности n случайным образом. найти: 1) произведение отрицательных элементов 2) количество элементов, кратных 3

👇
Ответ:
An0NimKa00
An0NimKa00
10.05.2021

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.

4,4(28 оценок)
Ответ:
Martina17
Martina17
10.05.2021

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.

4,6(24 оценок)
Открыть все ответы
Ответ:
Neronminecraft
Neronminecraft
10.05.2021

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.

Объяснение: Если есть вопросы, пишите в лс.

4,6(77 оценок)
Ответ:

1 Для удобство содержания

2 Гиперссылка— часть гипертекстового документа, ссылающаяся на элемент в этом документе

3-4 Чтобы сделать гиперссылку на страницу или файл в интернете, выделяете текст или картинку, которые потом станут кликабельны, и в верхнем меню выбираете последовательно Вставка - Ссылки - Гиперссылка (или нажимаете на выделенный текст или картинку правой кнопкой мыши, и в выпадающем меню выбираете пункт Гиперссылка).

Далее в окошке "Вставка гиперссылки" заполняете поля:

"Связать с" - выбираете Файл, Веб-страница

"Адрес" - вставляете ссылку на страницу или файл.

Нажимаете ОК и готово!

5 Итак, чтобы сделать оглавление в ворде автоматически, нужно сначала разбить документ на разделы с заголовками, а потом перейти во вкладку "Главная" - "Стили". К названиям разделов, которые требуется внести в содержание, примените соответствующие стили. Например, для названий разделов можно применить «Заголовок 1», а для подразделов «Заголовок 2».

6 А́вторское пра́во — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием

7 Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда

Объяснение:

4,7(95 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ