Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
160 бит это если не считать пробел перед "я" и после "у" с ними 176
На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5
Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
<span>a = int(input("a = "))
sise = <span>0
</span>for i in range(1,a+1,2):
print(i)
sise += i
print("Suma ",sise)</span>