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

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

Показать ответ
Ответ:
Zahar4472
Zahar4472
06.10.2020 00:07
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Write('Заполните массив A(',N,'): ');
For i:= 1 to N do
    Read(A[i]);
Min:=1;
For i:= 2 to N do
    if A[i]<A[Min] then Min:=i;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
For i:= 1 to N do
    Begin
    A[i]:=A[Min];
    Write(A[i],' ')
    End
End.
0,0(0 оценок)
Ответ:
Dasha9716
Dasha9716
06.10.2020 00:07
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  var m:=a.Min;
  a.Transform(x->m); a.Println
end.

Пример
n= 5
Вводите: 13 8 -4 0 7
-4 -4 -4 -4 -4
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота