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

Дан массив, состоящий из целых чисел. напишите программу, которая в данном массиве определит количество элементов, у которых два соседних и, при этом, оба соседних элемента меньше данного. входные данные сначала задано число n — количество элементов в массиве (1n100). далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел. выходные данные необходимо вывести количество элементов массива, у которых два соседа и которые при этом строго больше обоих своих соседей. примеры входные данные 5 1 2 3 4 5 выходные данные 0 входные данные 5 1 5 1 5 1 выходные данные 2

👇
Ответ:
mkm3
mkm3
07.05.2022
Var
A:array[1..100]of integer;
N,S:byte;
Begin
Read(N);
For N:= 1 to N do
 Read(A[N]);
For N:= 2 to N-1 do
 if (A[N]>A[N-1])and(A[N]>A[N+1]) then S:=S+1;
Write(S)
End.
4,7(28 оценок)
Открыть все ответы
Ответ:
regina290402
regina290402
07.05.2022

1)Целые положительные представляются в компьютере в формате с фиксированной запятой. Отрицательные с дополнительного кода

2) операции с целыми числами занимают меньше времени, что повышает эффективность программы, также на запись целых чисел требуется меньше места. Любое целое число можно рассматривать как вещественное, но с нулевой дробной частью, т. е. можно было бы ограничиться представлением в компьютере вещественных чисел и реализацией арифметических операций над ними, однако для эффективного использования памяти ЭВМ, повышения скорости выполнения вычислений и введения операции целочисленного деления целые числа представляются специально для них предназначенными

3) 63 2

-62 31 2

1 -30 15 2

1 -14 7

2

1 -6 3

2

1 -2 1

1

6310 = 001111112    63^10 = 00111111^2

4)01001100=2^2+2^3+2^6=4+8+64=76

00010101=2^0+2^2+2^4=1+4+16=21

5)В восьмиразрядном формате можно сохранить числа занимающие не более чем 8 двоичных разрядов

Надеюсь,что

4,5(61 оценок)
Ответ:
natakonstantin
natakonstantin
07.05.2022
1.
var
x:integer;
y:real;
begin
write('Введите значение аргумента "X" : ');
readln(x);
y:=3*cos((5*x));
writeln('Значение функции "Y" = ',y);
readln;
end.

2.
var
x,b:integer;
begin
write('Введите количество молока, полученного за день, л : ');
readln(x);
write('Введите количество дней : ');
readln(b);
writeln('Количество молока, полученного за заданный промежуток времени = ',x*b);
readln;
end.  

3.
var
a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(b,#10,c);
end.

4.
var
b:integer;
a:longint;
begin
write('Введите целое число: ');
readln(a);
  b:=a div 100 mod 100;
writeln(b);
readln;
end.

5. 
var
a,b:integer;
begin
write('Введите числа : ');
readln(a,b);
if a and b mod 2=0 then
 writeln(a+b);
if a and b mod 2<>0 then
 writeln(a*b);
readln;
end.
{Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}
4,5(42 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ