Var k, m, n: integer; dat: array[1..10] of integer; begin dat[1] : = 7; dat[2] : = 9; dat[3] : = 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 10; dat[9] : = 6; dat[10] : = 9; m : = 0; n : = 0; for k : = 1 to 10 do if dat[k] > = m then begin m : = dat[k]; n : = k end; writeln(n) end. решить с пояснением

152

293

Посмотреть ответы 2

Ответы на вопрос:

chartenok88201ovseez

Информатика

4,4(41 оценок)

Воператорах dat[1] : = 7; ; dat[10] : = 9; элементы массива. m : = 0; n : = 0; - начальные значения переменных m и n.в цикле for k : = 1 to 10 do каждый элемент массива сравнивается с текущим значением переменной m ( dat[k] > = m). если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. таким образом, после выполнения цикла значения переменных будут: m=10; n=8. на экран будет выведено значение 8 (это номер последнего максимального элемента массива).ответ: 8

тик12345

Информатика

4,4(94 оценок)

//pascal abc.net v3.1 сборка 1172 //6 var r: integer; begin readln(r); writeln('s=',pi*sqr(r)); writeln('l=',pi*2*r); end. //7 var a,b: integer; begin read(a,b); writeln('s=',pi*a*b); writeln('l=',pi*(a+b)); end.