1)Чему равно среднее арифметическое значений элементов массива a[3] и a[4], сформированного следующим образом: for i:= to 10 do if i mod 2 = 0 then a[i]:=i/2 else a[i]:=(i+1)*2; (оформите массив в виде таблицы) 2)Массив а из десяти элементов сформирован следующим образом: for i:= to 10 do a[i]:=3*i-6; к данному массиву был применен следующий алгоритм: b:=a[10] for i:= to 10 do a[10-i]:=a[9-i]; a[1]=b; Чему равно значение седьмого элемента обработанного массива (Оформите оба массива в виде таблиц)
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.
Примеры
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
2. "Школьный древний вариант"
// Free Pascal 3.0.0
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if n>20 then
Writeln('Слишком большое n, допустимо 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
Примеры
n= 20
20! = 2432902008176640000
n= 43
Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
var x:integer;
begin
readln(x);
if x>0 then writeln(x,' - положительное')
else if x<0 then writeln(x,' - отрицательное')
else writeln(x,' = 0');
end.
Пример:
-125
-125 - отрицательное
2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if x>0 then k:=k+1;
if y>0 then k:=k+1;
if z>0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.
Пример:
-125 84 67
количество положительных чисел = 2
3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
else writeln(x,' - нечётное');
end.
Пример:
125
125 - нечётное