<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var p:=1;
for var i:=2 to ReadInteger('n=') do p*=i;
Writeln(p)
end.
<u>Пример</u>
n= 5
120
Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
100100=1*2^5+0+0+1*2^2+0+0=36
Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>
Ответ:
Объяснение:
Ошибки в строках:
{1} надо писать array
{2} не описана переменная max, необходимо : а не :=
{4} надо downto
{5} обращение к неописанной переменной max, элемент массива должен быть записан как mass[1]
{7) надо mass[i]
{9} мусор 9)
{10} надо не кавычки, а апострофы ' '
