Каково назначение представленного ниже фрагмента программы?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); Определение количества положительных элементов массива Определение максимального элемента массива Определение количества отрицательных элементов массива Определение суммы порядковых номеров массива

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

Каково назначение ниже приведенной программы?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 значений массива на экран в одну строку Выполняет проверку значений элементов массива Производит заполнение массива пробелами

Каково должно быть содержимое строки, помеченной ***, чтобы приведенная программа раскладывала целое число на множители?program p1;varx,m: integer;beginwrite('Введите число');readln(x);m:=2;if (x mod m) = 0 thenbeginwrite('*',m);x:=x div m;end***end. else m:=m+1/2; else m:=(m+1)/2; else m:=m+1; else m:=m/2; else m:=m-1;

Расположите строки фрагмента программы так, чтобы в нем выводилась на экран сумма всех элементов массива, введенных пользователем? 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];