Задать вопрос
10 сентября, 23:01

Вычислить значения обработки массива

Var k, m, day: integer;

Dat: array[1 ... 10] of integer;

Begin

Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = 3;

Dat[4] : = 3; Dat[5] : = 4; Dat[6] : = 4;

Dat[7] : = 5; Dat[8] : = 5; Dat[9] : = 6;

Dat[10] : = 6;

day:=1; m : = Dat[1];

for k : = 2 to 10 do

if Dat[k] = m then

begin

m: = Dat[k];

day : = k;

end;

write (day) ;

End.

+3
Ответы (1)
  1. 11 сентября, 02:01
    0
    В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вычислить значения обработки массива Var k, m, day: integer; Dat: array[1 ... 10] of integer; Begin Dat[1] : = 2; Dat[2] : = 2; Dat[3] : = ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы