Var a:array[1..5,1..7] of integer; i,j,kolpol,kolotr:integer; respol,resotr:real; begin for j:=1 to 7 do begin for i:=1 to 5 do begin a[i,j]:=random(-50,50); write(a[i,j]:4); end; writeln(); end; for i:=1 to 5 do begin respol:=0; resotr:=0; kolpol:=0; kolotr:=0; for j:=1 to 7 do begin if a[i,j]>0 then begin respol+=a[i,j]; kolpol+=1; end else if a[i,j]<0 then begin resotr+=a[i,j]; kolotr+=1; end; end; writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol); writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr); end; end.
Смотрим на этот фрагмент кода: day := 1; m := Dat [1] нц для k от 2 до 10 если Dat[k] >= m то m := Dat[k]; day := k все кц
Что происходит? Сначала day = 1, m = Dat[day]. Затем в цикле для каждого k сравнивается Dat[k] с m, и если Dat[k] не меньше его, то в day записывается k, а в m - Dat[k]. Значит, после завершения цикла в переменной m будет записано максимальное из всех значений Dat[i], а в day - номер дня, в который в последний раз был достигнут максимум.
Максимальное значение равно 7, в последний раз появилось в Dat[9], поэтому day = 9.
Команда вывод day выводит на экран значение переменной day, которое, как мы уже выяснили, равно 9.
ответ. 9.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку