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

Дан массив из целых чисел x[1..5]. заменить каждый элемент массива с нечетным номером средним арифметическим индексов соседних элементов.

👇
Ответ:
Paketo18
Paketo18
19.02.2022
 var 
  x : array [1..5] of real; 
 i : integer;   
  begin  for i := 1 to 5 do 
  if i mod 2 = 1 then 
   x[i] := (i+1+i-1)/2;
  for i := 1 to 5 do 
  writeln (x[i]:3:2);
  end.
4,6(22 оценок)
Открыть все ответы
Ответ:
almiradkzbd
almiradkzbd
19.02.2022
Решение №1 (без массивов)

var a,n,i,j,s:integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(a);
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731

Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)

//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(mas[i]);
    a:=mas[i];  
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322
4,7(95 оценок)
Ответ:
EpoPanda
EpoPanda
19.02.2022

Объяснение:

Выбрать статью:Выбрать статью:

НА ЭТОЙ СТРАНИЦЕ

Использование команд «Повторить» или «Отменить»

Возврат к последней сохраненной версии

Восстановление части изображения до сохраненной ранее версии

Отмена операции

Получение уведомлений о завершении операции

Использование панели «Журнал»

Создание снимка изображения

Рисование с состояния или снимка изображения

Применимо к: Adobe Photoshop

Последняя публикация: 23 июня 2020 г.

Узнайте, как управлять состоянием изображений с команд «Отменить/Повторить» и панель «История» в Adobe Photoshop.

С команд «Отменить/Повторить» и панели «История» в Adobe Photoshop можно легко управлять состояниями изображений.

Использование команд «Повторить» или «Отменить»

Обновлено в Photoshop CC 20.0 (версия от октября 2018 г.)

Начиная с выпуска Photoshop CC (20.0) за октябрь 2018 г. вы можете отменить несколько действий в документе Photoshop с клавиш Ctrl+Z (Windows) или Command+Z (Mac). Этот новый режим по умолчанию включен.

Для отмены или повтора сделайте следующее.

Отменить: перемещает на шаг назад по цепочке отмен. Выберите Изменить > Отменить или нажмите клавиши Ctrl+Z (Windows) или Command+Z (Mac).

Повторить: перемещает на шаг вперед. Выберите Изменить > Повторить или нажмите клавиши Shift+Ctrl+Z (Windows) или Shift+Command+Z (Mac).

В меню Изменить, рядом с командами «Отменить» и «Повторить», также отображается название шага, который будет отменен. Например, «Изменить» > «Отменить редактирование текста».

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