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

Нарисовать блок схему алгоритма и написать программу,которая: 1)вводит массив а из 10 чисел 2)заполняет два массива в и с длиной 10 первый элемент массива в равен последнему элементу массива а,второй-предпоследнему,и т.д массив с=(а+в)/2 3)вывести в столбец а в с 10 6 8 0 -2 -1

👇
Ответ:
vasilzuk
vasilzuk
26.12.2022
Const
  n=10;
var
  a,b,c:array[1..n] of real;
  i:integer;
begin
  Writeln('Введите элементы массива');
  for i:=1 to n do Read(a[i]);
  Writeln('   A      B      C');
  for i:=1 to n do
  begin
    b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2;
    Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3)
  end
end.

Тестовое решение:
Введите элементы массива
1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245
   A      B      C
  1.260  0.245  0.753
 -0.300  1.750  0.725
  6.180 -2.955  1.613
  7.000 -1.700  2.650
 -7.040 -9.900 -8.470
 -9.900 -7.040 -8.470
 -1.700  7.000  2.650
 -2.955  6.180  1.613
  1.750 -0.300  0.725
  0.245  1.260  0.753

Блок-схема во вложении

Нарисовать блок схему алгоритма и написать программу,которая: 1)вводит массив а из 10 чисел 2)заполн
4,7(72 оценок)
Открыть все ответы
Ответ:
Bjuv
Bjuv
26.12.2022
2) Номер страницы
3) Библиотечный каталог — совокупность расположенных по опр-м правилам библиографических записей на документы, раскрывающих состав и содержание фонда библиотеки или информационного центра.
4) Жёсткий диск
5) Полное имя может включать следующее:
протокол или доступа
имя или адрес компьютера, узла сети
устройство хранения, диск
путь к каталогу 
собственно имя файла, которое может содержать его расширение
версия или номер ревизии
6) Область поиска - область памяти, в пределах которой осуществляется поиск
4,7(73 оценок)
Ответ:
jora2003123
jora2003123
26.12.2022
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
  var a:=ArrRandom(ReadInteger('n='),20,79); a.Println;
  var x:=a.Where(t->t.IsEven).Count; 
  If x>0 then Println('Количество четных:',x) else Println('Четных нету');
  var y:=a.Where(t->t mod 10=6).Count; 
  If y>0 then Println('Количество оканч. на 6:',y) else Println('Оканч. на 6 нету');
end.

Пример:
n= 5
79 29 27 74 27
Количество четных: 1 
Оканч. на 6 нету 

2)
begin
  var a:=ArrRandom(10,0,100); a.Println;
  Println('Кол-во пар:',Range(0,8,2).Where(t->a[t]=a[t+1]).Count)
end.

Пример:
56 93 72 72 71 24 37 55 91 91
Кол-во пар: 2 
4,5(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ