В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
natalikc
natalikc
07.09.2021 21:14 •  Информатика

1. возвести в квадрат все элементы массива a. размер массива и значения элементов массива – произвольные. 2. увеличить на 4 все элементы в первой половине массива a (считать, что в массиве чётное число элементов). размер массива и значения элементов массива – произвольные. 3. заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. например: 32 16 8 4 2 1 4. умножить на 3 все элементы во второй половине массива a (считать, что в массиве чётное число элементов). размер массива и значения элементов массива – произвольные.

Показать ответ
Ответ:
Выберитеникмен
Выберитеникмен
10.07.2020 19:54
Var 
  a: array of integer;
  i, n: integer;
begin
  randomize;
  n := Random(10) + 1;
  SetLength(a, n);
  writeln('Исходный массив');
  for i := 0 to n-1 do begin
    a[i] := Random(10);
    write(a[i]:5, ' ');
  end; writeln;
  
  writeln('Возвести в квадрат');
  for i := 0 to n-1 do begin
    a[i] := sqr(a[i]);
    write (a[i]:5, ' ');
  end; writeln;
  
  writeln('Заполнить степенями 2');
  a[n-1] := 1;
  for i := n-2 downto 0 do
    a[i] := a[i+1] shl 1;
    
  for i := 0 to n-1 do write (a[i]:5, ' ');
  writeln;
  
  writeln ('умножить на 3 во второй половине');
  for i := n shr 1 to n-1 do
    a[i] := (a[i] shl 1) + a[i];
    
  for i := 0 to n-1 do write (a[i]:5, ' ');
  writeln;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота