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

Найти минимальный элемент массива в паскале,я сделал,но есть ошибка,но я не понимаю где она

var
a: array[1..5] of real;
i: integer;
min: real;
begin
min: =a[1];
for i: =1 to 5 do
read(a[i]);
for i: =1 to 5 do
if a[i] < min then
min: =a[i];
write(min);
end.

👇
Ответ:
ujiuyh
ujiuyh
18.05.2023

В строчке min:=A[1]; ты присваеваешь переменной ещё не заданное значение массива. Перенеси эту строчку под первый цикл, должно заработать

4,5(66 оценок)
Ответ:
аннасерб
аннасерб
18.05.2023

var

 a: array[1..5] of real;

 i: integer;

 min: real;

begin

 for i := 1 to 5 do

   read(A[i]);

 min := A[1];

 for i := 2 to 5 do

   if a[i] < min then

     min := A[i];

 write(min);

end.

4,8(71 оценок)
Открыть все ответы
Ответ:
alpis2002
alpis2002
18.05.2023
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,10,99);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Cols.Select(c->c.Max).ToArray;
  foreach var x in b do Write(x:3); Writeln
end.

Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
 76 48 41 62 74 39 98 72 33
 90 71 96 66 40 51 43 68 46
 30 81 52 55 20 47 64 56 45
 96 71 27 31 32 77 33 44 57
 33 97 32 60 38 84 51 74 66
 41 40 88 59 54 84 86 38 86

 96 97 96 66 74 84 98 74 86
4,8(22 оценок)
Ответ:
Всенорм1111
Всенорм1111
18.05.2023

Не совсем понял о какой таблице речь.

Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4

получается список на первом месте которого 00000, а на последнем 44444

Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)

Получаем: Всего 3125 комбинаций

По той же логике на 517 месте стоит число 516.

Переводим его в пятеричную систему - 04031

Подставляем вместо цифр буквы.

Под номером 517 находится комбинация  - АОАКР

Теперь обратное, вместо букв цифры - 32143

Переводим в десятичную систему и прибавляем 1.

Курок находится под номером 2174

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