ПОМОГИТЕ ПОЖАЛУЙСТА!!!var k, m, day: integer;Dat: array[1..10] of integer;begin

ПОМОГИТЕ ПОЖАЛУЙСТА!!!



var k, m, day: integer;
Dat: array[1..10] of integer;
begin
Dat[1]:=7; Dat[2]:= 1;
Dat[3]:= 3; Dat[4]:= 3;
Dat[5]:= 2; Dat[6]:= 2;
Dat[7]:= 5; Dat[8]:= 5;
Dat[9]:= 7; Dat[10]:= 1;
day:= 1; m:= Dat[1];
for k:= 2 to 10 do begin
if Dat[k] lt; m then
begin
m:= Dat[k]; day:= k
end
end;
write(day);
end.

Задать свой вопрос
Вова Алестин
А что делать то?
Рома Болтачеев
Отыскать ошибку?
Людмила
найти, что будет написано в итоге метода
1 ответ

Будет выведенно 2. Это индекс минимального числа в массиве.

Риванченко Светлана
Если не трудно, отметьте как наихорошее.
Степан Вахгельт
Отмечу. Только пожалуйста растолкуйте как это решать
Агата Валах
с чего начинается метод, что первое сравнивается. 1 и 7 либо 1 и 1?
Дарина Лыс
Гляди.Начинается метод с наполнения массива Dat. (Если без заполнений, то сравнивается m (Dat[1]) и Dat[2] ).Первым сравнивается m (Dat[1]) и Dat[2]. То есть малое значение и k-ый элемент.
Urolskij Serezha
То есть, сначала k=2, а m(минимальное значение)=Dat[1].
Галина Сухоткина
То есть сначала сравнивается 1 и 7, верно?
Таисия Лоторева
Да.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт