помогите пожалуйста!!!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]:= 2;
Dat[3]:= 3; Dat[4]:= 3;
Dat[5]:= 4; Dat[6]:= 4;
Dat[7]:= 5; Dat[8]:= 5;
Dat[9]:= 7; Dat[10]:= 6;
day:= 1; m:= Dat[1];
for k:= 2 to 10 do begin
if Dat[k] gt; = m then
begin
m:= Dat[k]; day:= k
end
end;
write(day);
end.

Задать свой вопрос
1 ответ

9,

т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7

Александра Шейнина
Подскажите, цикл начинается k=2?
Никитка Болюнов
да. for k:= 2 to 10 do begin
Анжелика Кашитская
Скажите пожалуйста, первым сравнивается 2 и 7?
Сергей Острогруд
да. Dat[1]:=7, следовательно m=7.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт