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

Написать программу к задаче: "Найти произведение элементов целочисленного, одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры." Паскаль.

👇
Ответ:
msajkina
msajkina
05.02.2022

Типовые задачи на Паскале (массивы)

Массив- это упорядоченный набор однотипных элементов, обозначаемых одним именем; доступ к элементу массива осуществляется по его номеру.

Для записи элементов массива в память компьютера нужно выделить для их хранения необходимое количество ячеек памяти, которое определяется размером массива.

В программе для каждого массива должны быть указаны его параметры: имя, размерность и размер. Бывают одномерные, двумерные и т.д. массивы. Это называется размерностью.

Одномерные массивы (последовательности).

A: 3,-4,0,3,-5,10,0

A[1]=3, A[3]=0, A[7]=0

I - номер элемента, A[I] - элемент массива, стоящий на I-ом месте

1. Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

Var a: array[1..100] of integer;

i, n: integer;

Begin

Write (‘Сколько элементов? ’); Readln (n);

For i=1 to n do

begin

a[i]:= Random(58)-23;

writeln (a[i],’ ‘);

end;

End.

Var a: array[1..100] of integer;

i, n, p: integer;

Begin

Write (‘Сколько элементов? ’); Readln (n);

p:=1;

For i:=1 to n do

begin

write (‘введите число’); readln (a[i]);

p:=p*a[i];

end;

writeln(‘произведение элементов равно: ‘,p);

End.

Var a: array[1..100] of real;

i, n: integer;

s: real;

Begin

Write (‘n=’); Readln (n);

s:=0;

For i:=1 to n do

begi

write (‘введите число’); readln (a[i]);

s:=s+a[i];

end;

writeln(‘сумма элементов равна ‘,s);

End.

Var a: array[1..100] of real;

i, n: integer;

s,sred: real;

Begin

Write (‘n=’); Readln (n);

s:=0;

For i:=1 to n do

begin

write (‘введите число’); readln (a[i]);

s:=s+a[i]

end;

sred:=s/n;

writeln(‘среднее арифметическое элементов: ‘,s);

End.

Program sumshet;

Var a: array[1..100] of real;

i, n: integer;

s,sred: real;

Begin

Write (‘n=’); Readln (n);

s:=0;

For i:=1 to n do

begin

write (‘введите число’); readln (a[i]);

if i mod 2 = 0 then s:=s+a[i];

end

Var a: array[1..100] of integer;

i, n, p: integer;

Begin

Write (‘Сколько элементов? ’); Readln (n);

P:=1;

For i=1 to n do

begin

a[i]:= Random(46)-19;

writeln (a[i],’ ‘);

if i mod 2 <> 0 then P=P*a[i];

end;

Writeln(‘Произведение элементов с нечетными номерами:’, P);

Var a: array[1..100] of integer;

i, n, p, t: integer;

Begin

Write (‘Сколько элементов? ’); Readln (n);

P:=1;

For i=1 to n do

begin

a[i]:= Random(104)-56; writeln (a[i],’ ‘);

if (i mod 2 = 0) and (a[i]>t) then P=P*a[i];

end;

Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);

РЕКЛАМА

End.

Var a: array[1..100] of real;

i, n: integer;

min: real;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

end;

min:=a[1];

For i:=2 to n do

If a[i]< min then min:=a[i];

Program numberminim;

Var a: array[1..100] of integer;

i, n, num, min: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

a[i]:= Random(46)-20;

writeln (a[i]);

end;

min:=a[1];

num:=1;

For i:=2 to n do

If a[i]< min then

begin

min:=a[i];

num:=i;

end;

Writeln(‘ номер наименьшего элемента: ‘,num);

End.

Program kolv0;

Var a: array[1..100] of integer;

i, n, k: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

Write(‘a[‘,i,’]=’); readln (a[i]);

if a[i]=0 then k:=k+1;

end

Var a: array[1..100] of integer;

i, n, k: integer;

Begin

Write (‘n=’); Readln (n);

For i:=1 to n do

begin

Write(‘a[‘,i,’]=’); readln (a[i]);

if a[i] mod 2=0 then k:=k+1;

end;

Writeln(‘количество четных элементов: ’, k);

end.

Var a: array[1..10] of real;

i, k: integer;

C, S, sred: real;

Begin

For i:=1 to 10 do

begin

write(‘a[‘,i,’]=’); readln (a[i]);

end;

write(‘введите С: ‘); readln (C );

For i:=1 to 10 do

begin

If a[i]>C then

begin S=S+a[i]; K=K+1; end;

end;

sred=S/k;

Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’ равно ‘,sred)

Var a: array [1..100] of integer;

i, n, p: integer;

Begin

p:=1;

write ('n='); readln (n);

for i:=1 to n do

begin

write ('a[',i,']='); readln (a[i]);

if i mod 2=0 then p:=p*a[i];

end;

Writeln ('произведение элементов массива с четными номерами равно ',p);

End

*Вроде правильно*

4,6(53 оценок)
Открыть все ответы
Ответ:
msflower05
msflower05
05.02.2022

1. Что такое стиль в текстовом процессоре MS Word?

Стиль в текстовом редакторе MS Word – это определенные шаблоны оформления частей документа: шрифта, абзацев, заголовка и подзаголовков, списков, таблиц и др.

2. Каковы преимущества стилевого форматирования перед ручным?

Преимущества стилевого форматирования перед ручным:

- экономит время (применить стиль как набор элементов);

- функция автоматическая;

- позволяет быстро изменить вид отдельных элементов во всем

документе;  

3. Какие основные виды стилей существуют в MS Word?

Основные виды стилей в MS Word:

- стили символов;

- стили абзацев;

- стили списков;

- стили таблиц.

4. Какова иерархия применения стилей к абзацу?

       НЕ МОГУ

5. Какие для применения стилей существуют?

для применения стилей существуют:

- создание своего стиля;

- использовать стиль из предложенных отформатированным под себя;

- использование предложенные стили

6. Как выделить все абзацы, имеющие один и тот же стиль?

       НЕ МОГУ

7. Как создать новый стиль абзаца или стиль символа и применить его для оформления текстового документа?

         НЕ МОГУ

8. В каком режиме просмотра документов следует применять стили?

Word предлагает несколько отображения документа, которые облегчат выполнение определенной задачи редактирования.

- обычный режим (наиболее подходит для общих задач редактирования);

- режим разметки (идеально подходит для форматирования и разметки страниц);

- режим электронного документа (отображает документ во весь экран);

- режим структуры (создан для работы со структурой документа).

Режим, который вы используете, не влияет на содержание вашего документа и его вид при распечатке. Он влияет только на отображения документа на экране.

9. Какие стандартные заголовочные стили существуют? Почему заголовки в любом случае необходимо оформлять с стилей?

Стили заголовков. Для поддержки многоуровневой структуры документа используются заголовки различных уровней. Для того, чтобы в дальнейшем можно было автоматизировать составление оглавления или содержания, заголовки необходимо форматировать именно с стилей, соблюдая иерархию. Заголовок при этом рассматривается как абзац.

10. Как можно использовать стили для создания структуры документа?

        НЕ МОГУ

Объяснение:

Это всё что я смогла сделать :(

4,8(43 оценок)
Ответ:
krubl
krubl
05.02.2022

A) a = 3

print(a**5)

#Здесь не нужно использовать модуль, так как в Пайтоне или Питоне есть функция возведение в степень

B) import math

a = 49

print(math.sqrt(a))

#Здесь добавляем библиотеку или модуль командой import, создаем переменную и с команды math.sqrt извлекаем кв. корень числа 49.

C) import math

a = 7.57

print("Ближайшее наименьшее: ", math.floor(a))

print("Ближайшее наибольшее: ", math.ceil(a))

#Здесь почти все также, как и во 2, но используем 2 команды округления, это math.ceil, до ближайшего и math.floor до наибольшешо числа

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