Каково назначение представленного ниже фрагмента программы?p:=m[1];for i:=1 to 30 doif m[i]>p then p:=m[i];writeln(p); Поиск максимального элемента из тридцати, имеющихся в массиве Поиск в массиве первого элемента, значение которого превышает среднее Поиск в массиве из тридцати элементов значений-дубликатов Поиск минимального элемента из тридцати, имеющихся в массиве

Каково назначение представленного ниже фрагмента программы?for i:=1 to 30 dobeginwrite('Введите элемент № ',i);readln(m[i]);end;n:=0;for i:=1 to 30 doif m[i]>=0 then n:=n+1;write(n); Определение количества положительных элементов массива Определение максимального элемента массива Определение количества отрицательных элементов массива Определение суммы порядковых номеров массива

Расположите пропущенные (***) строки фрагмента программы так, чтобы в нем выполнялась сортировка массива?repeatind:=true;for i:=1 to 39 doif m[i]>m[i+1] then***ind:=false;end;until ind; begin m[i+1]:=buf; buf:=m[i]; m[i]:=m[i+1];

Каково назначение ниже приведенной программы?program p1;varx,m: integer;beginwrite('Введите число');readln(x);m:=2;if (x mod m) = 0 thenbeginwrite('*',m);x:=x div m;endelse m:=m+1;end. Разложение целого числа на составляющие цифры Нахождение частного от деления целого числа на 2 Нахождение всех остатков целого числа Разложение целого числа на множители

Что выполняет следующий фрагмент программы: For i:=1 to N do write (a[ i ], ‘ ’); Выводит N значений массива на экран в одну строку Выполняет проверку значений элементов массива Производит заполнение массива пробелами

Расположите строки фрагмента программы так, чтобы в нем выводилась на экран сумма всех элементов массива, введенных пользователем? end; begin write('Введите элемент № ',i); readln(m[i]); for i:=1 to 30 do write(s); s:=0; for i:=1 to 30 do s:=s+m[i];